border style (بردر استیل فرم)

[azadich]

با سلام من برد استیل فرم را حذف کردم و خودم یه برد برای فرم ساختم حالا چطوری وقتی اشاره گر موس روی برد رفت و کلیک سمت چپ فشار داده شد میشه فرم را جابه جا کرد.مثل برد خود فرم که می توان فرم را جابه جا کرد

[alirezabahrami]

با سلام من برد استیل فرم را حذف کردم و خودم یه برد برای فرم ساختم حالا چطوری وقتی اشاره گر موس روی برد رفت و کلیک سمت چپ فشار داده شد میشه فرم را جابه جا کرد.مثل برد خود فرم که می توان فرم را جابه جا کرد

سلام
ابتدا کد زیر را در بخش General ماژول فرم واردکن !

'ÌÇÈÌÇÆí ÝÑã ÈÏæä äæÇÑ ÚäæÇä

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Sub ReleaseCapture Lib "user32" ()

Const WM_NCLBUTTONDOWN = &HA1 'when left mouse button is clicked

Const HTCAPTION = 2 'signed that mouse is working on titlebar.

 

سپس در رویداد MouseDown برد استیل خودت کد زیر را وارد کن!

    If Button = 1 Then

        Call ReleaseCapture 'tell system through mouse didn't working anymore.

        'tell system through mouse already working on form.

        Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

    End If

 

کدفوق را میتوانید در ایونت Detail_MouseDown هم بکار ببرید .
موفق باشید