atf1379
یک شنبه 07 دی 1399, 19:35 عصر
سلام
در فایل نمونه ضمیمه فرمی وجود دارد که در قسمت Detail این فرم کنترل ocxWebBrowser درج شده . این کنترل فاقد خصوصیات MouseDown ، MouseUp و MouseMove میباشد . بخاطر همین بر روی این کنترل نمیتوان با پائین نگه داشتن موس اقدام به جابجا کردن فرم نمود .
کد زیر برای جابجائی در حالتی که خصوصیات MouseDown ، MouseUp و MouseMove وجود دارد . البته این کد کامل نیست
Private Sub Detail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Call ReleaseCapture 'tell system through mouse didn't working anymore.
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub
خواستم بپرسم آیا امکان دارد با استفاده از مختصات موس در رویداد تایمر اقدام به جابجا کردن فرم نمود . به عبارتی در تایمر فرم کدی را درج کنیم که تشخیص دهد که موس حالت MouseDown است و با این تشخیص وقتی سعی می کنیم موس را در جهات مختلف بکشیم فرم همزمان نسبت به مختصات x و y جابجا شود.
در فایل نمونه ضمیمه فرمی وجود دارد که در قسمت Detail این فرم کنترل ocxWebBrowser درج شده . این کنترل فاقد خصوصیات MouseDown ، MouseUp و MouseMove میباشد . بخاطر همین بر روی این کنترل نمیتوان با پائین نگه داشتن موس اقدام به جابجا کردن فرم نمود .
کد زیر برای جابجائی در حالتی که خصوصیات MouseDown ، MouseUp و MouseMove وجود دارد . البته این کد کامل نیست
Private Sub Detail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Call ReleaseCapture 'tell system through mouse didn't working anymore.
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub
خواستم بپرسم آیا امکان دارد با استفاده از مختصات موس در رویداد تایمر اقدام به جابجا کردن فرم نمود . به عبارتی در تایمر فرم کدی را درج کنیم که تشخیص دهد که موس حالت MouseDown است و با این تشخیص وقتی سعی می کنیم موس را در جهات مختلف بکشیم فرم همزمان نسبت به مختصات x و y جابجا شود.