جابه جایی فرم border style=0

[vb-sosol]

سلام دوستان
اگه فرمی داشته باشم که اجبارا از border style=0 استفاده کنم
بخوام جا به جا بشه روی دسکتاپ باید چه کار کنم؟

[بهروز عباسی]

بخوام جا به جا بشه روی دسکتاپ باید چه کار کنم؟ این کارو
'-=-=-=-=- API FormDrag -=-=-=-=-=-=
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 Function ReleaseCapture Lib "user32" () As Long
'-----------------------------
Public Sub FormDrag(ByVal hWnd As Long)
ReleaseCapture
Call SendMessage(hWnd, &HA1, 2, 0&)



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormDrag (Me.hWnd)
End Sub

[setroyd]

Dim xx, yy
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = Me.Left + (X - xx)
Me.Top = Me.Top + (Y - yy)
End If
End Sub

با این هم میشه ولی کد دوستمون که گذاشتن اصولی تر و بهتره کلا api رو من بیشتر میپسندم .