مشکل در طراحی فرم

[ferankyy]

سلام دوستان من چون یه کاربر تازه وارد هستم و سوال زیاد میپرسم شما ببخشید
من میخوام فرمی طراحی کنم که خاصیت BorderStyle اون رو روی None گداشتم حالا چطور خودم یه نوار عنوان براش درست کنم که بشه فرم رو حرکت داد (MOVE) . :متفکر: :متفکر: :متفکر:

[xxxxx_xxxxx]

سلام،
بعضي ها براي اين كار از تايمر استفاده مي كنند، اما اين كار اصلاً خوشايند نيست. چون با تابع SendMessage به راحتي ميشه اين كارو كرد.
فرض كنيد بجاي نوار عنوان از يك Command Button استفاده كرديد. اسم كامند هست: cmdMove


Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessageA Lib "user32" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub cmdMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessageA Me.Hwnd, &HA1, 2, 0&
End Sub

موفق باشيد/