قابل جابجایی فرم در vb.net

[ooje_asman]

من یه فرم طراحی کردم که هیچ کدام از دکمه های مینیمم و ماکزیمم و همچنین نوار بالایی را نداره حال چطور می تونم فرم رو قابل جابجایی کنم تا بتوان با موس آنرا در صفحه جابجا کرد . مرسی

 

[mostafa_gm]

تعاریف:

Dim Down As Boolean
Dim varY As Integer
Dim varX As Integer

توابع:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MDown(X, Y)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MMove(X, Y)
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MUp(X, Y)
End Sub
Private Sub MUp(X2 As Single, Y2 As Single)
Down = False
End Sub
Private Sub MMove(X2 As Single, Y2 As Single)
If Down = True Then
Form1.Left = Form1.Left + X2 - varX
Form1.Top = Form1.Top + Y2 - varY
X2 = varX
Y2 = varY
End If
End Sub
Private Sub MDown(X2 As Single, Y2 As Single)
Down = True
varX = X2
varY = Y2
End Sub

 

[ooje_asman]

با سلام و تشکر از مصطفی جان ، مصطفی در این آدرس http://forum.p30world.com/viewtopic.php?p=56080 هم یه کد هست که همین کار رو می کنه و از این کد هم خلاصه تره و کمتر شما هم برو ببین حالا نظر شما چی باشه مرسی

 

[mostafa_gm]

اگه ميخواي خيلي خلاصه بشه ميتوني كدها رو مستقيم بدون نوشتن توابع اضافي بنويسي:

Dim Down As Boolean
Dim varY As Integer
Dim varX As Integer

در قسمت event مربوط به MouseMove فرم کد زير را بنويسيد:
If Down = True Then
Me.Left = Me.Left + X - varX
Me.Top = Me.Top + Y - varY
X = varX
Y = varY
End If

در قسمت event مربوط به MouseDown فرم کد زير را بنويسيد:
Down = True
varX = X
varY = Y

در قسمت event مربوط به MouseUp فرم کد زير را بنويسيد:
Down = False

حالا فكر ميكنم فرقش دو خطه. در ضمن ايشون نگفتند كه كدوم library رو براي تعريف newPoint اضافه كردند و e.Button چيه؟
ميتوني از هر روشي كه جواب ميده استفاده كني.