۰۹-اردیبهشت-۱۳۹۰, ۱۲:۴۰:۵۹
از اين تابع (Api) برای حركت دادن فرمی كه نوار عنوان نداره استفاده می شه .برای نمايش يك فرم بدون نوار عنوان خاصيت Border styleرو برابر None قرار بدید.حالا کد Api زير رو تو يه ماژول كپی كنيد.
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
حالا برای اينكه كد زير در رويداد فرم قابل اجرا باشد كد زير را در پنجره كد كپی كنيد.Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Call ReleaseCapture
Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
موفق باشیدIf Button = 1 Then
Call ReleaseCapture
Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
