حرکت دادن فرم با none BorderStyle شده

[loads]

سلام دوستان عزیز

چطور میشه یه فرمو که Border Style آن none شده رو روی دسکتاپ با موس حرکت داد

ممنونم

[حامد مصافی]

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 Any) As Long



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ReleaseCapture
Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub

[loads]

black dal عزیز erorr میده ...

[PalizeSoftware]

black dal عزیز erorr میده ...

با اجازه جناب مصافی
بخشی از کد از قلم افتاده بود. به این صورت تحصیح کنید:


Private Declare Function ReleaseCapture Lib "user32" () As Long
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 Const WM_NCLBUTTONDOWN = &HA1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call ReleaseCapture
Call SendMessage(hwnd, WM_NCLBUTTONDOWN, 2, 0&)
End Sub

[حامد مصافی]

می بخشید ، یادم رفته بود مقدار ثابتشو بنویسم
آقای PalizeSoftware ممنونم

[loads]

بازم مثل همیشه شرمندم کردید از هر دو شما ممنونم

[Syamah]

دستورات زیر را وارد برنامه تون کنید و اجرا کنید::.
Private Declare Function ReleaseCapture Lib "user32" () As Long
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 Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, &HA1, 2, 0
End Sub
خودم آزمایش کردم مطمئنم که Error نمی دهد

[sard33]

سلام خسته نباشین
من تازه برنامه نویسی رو شروع کردم لطفا بهاین اشکال ساده من جواب بدین
من یک SHAPE گذاشتم که حرکت میکنه بای چه دستوری بنویسم که SHAPEدر هر حالتی از فرم خاج نشه
ممنون