[ایرانویجی] حرکت دادن فرمهای بدون نوار عنوان!

[[Moosa]]

از اين تابع (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

حالا برای اينكه كد زير در رويداد فرم قابل اجرا باشد كد زير را در پنجره كد كپی كنيد.

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

موفق باشید

[zirak]

این هم یک نوع دیگه