جابجایی فرم وقتی formborderstyle=None

[ehsan_zanganeh]

با سلام

من در فرمهای برنامم، formborderstyle=None قرار دادم. حالا می خوام فرمهام رو جابجا کنم تا بتونم به فرمهای زیری دسترسی داشته باشم.

با تشکر

[ehsan_zanganeh]

کسی نمی تونه جواب بده

[hamed_bostan]

باید به وسیله کد مکانش رو مشخص کنی با موس نمیتونی.

[ghafoori]

دوست عزیز می توانید از این کد استفاده کنید

Dim click As Boolean
Dim point As New Point
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
click = True
point = e.Location
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If click Then
Me.Location = Me.Location + (e.Location - point)
End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
click = False
End Sub

[ehsan_zanganeh]

تشکر بسیار عالی بود