با سلام
با استفاده از کد های زیر در یک ماژول عمومی :
Public Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function ReleaseCapture Lib "User32" () As Long
Public Const WM_NCLBUTTONDOWN = &HA1 'when left mouse button is clicked
Public Const HTCAPTION = 2 'signed that mouse is working on titlebar.
و با استفاده از کد زیر در رویداد MouseDown یک کنترل مثل یک لیبل میتوانیم با چپ کلیک و پائین نگه داشتن موس فرم را جابجا کنیم:
If Button = 1 Then
Call ReleaseCapture
Call SendMessage(Me.hWnd(), WM_NCLBUTTONDOWN, HTCAPTION, 0&)
' Call SendMessage(Form("Form2").hWnd(), WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
حالا سوال اینجاست که آیا میتوان با همین کد که فرم جاری رو جابجا میکنه همزمان فرم دیگری رو جابجا کنیم ؟
در رخداد Form_Timer و تنظیم TimerInterval مساوی عدد 1 اینکار شدنیه ولی هدف بنده اینست که از Form_Timer استفاده نکنم و با همان تابع Call SendMessage اینکار صورت بکیره
لطفاً نمونه ضمیمه رو ملاحظه بفرمائید!
با تشکر
پاسخ با نقل قول