حرکت دادن فرم با کلیک کردن به هرجای فرم

[ABERTINO]

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


Dim X, Y, MovX, MovY As Integer
Dim Lclk As Boolean
Private Sub Form_Load()
Lclk = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Lclk = True
X = Screen.TwipsPerPixelX
Y = Screen.TwipsPerPixelY
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Lclk And Button Then
MovX = Screen.TwipsPerPixelX
MovY = Screen.TwipsPerPixelY
Me.Left = Me.Left + (X - MovX)
Me.Top = Me.Top + (Y - MovY)
X = MovX
Y = MovY
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Lclk = False
End If
End Sub

پیشاپیش از راهنمایی شما ممنونم

[ƒxmahdi]

روش ساده تری هم هست

[sinpin]

کد شما رو تست نکردم. اما برای اینکار میشه از توابع API استفاده کرد :
http://www.thescarms.com/vbasic/moveform.aspx
http://www.xtremevbtalk.com/showthread.php?t=287768

[bobrus]

من بدون کد api هم دیده بودم تقریباً همین روش بود ولی چون ازش استفاده نکردم یادم نیست چطور بود
حالا از روش این دوستامون استفاده کن مگه چی می شه

[Mbt925]

دوست عزیز قبل از ایجاد تاپیک جستجو کنید.

جواب کامل سوال شما:

http://barnamenevis.org/forum/showpost.php?p=445285&postcount=145