جا به جا كردن فرم

[Mohandese_Javan]

سلام!
من يه فرم دارم كه BorderStyle اون رو None كردم. يعني نوار عنوان نداره. حالا براي حركت اين فرم با ماوس بايد چيكار كرد؟
ممنون!

[C_DPlus]

بايد حركت موس را در حالي كه رويداد MouseDown رخ داده با خواص Left و Top فرم هماهنگ كني

[mRizvandi]

سلام

توي برنامه هاي بخش آي پي آي يك برنامه چند وقت پيش آپلود شده بود كه همين كار رو مي كنه
:wink:

[Mohandese_Javan]

سلام!
جناب ريزوندي من نتونستم تو سرچ سايت چيزي پيدا كنم. شما لينكش رو داري به من بدي؟
ممنون! :wink:

[Iron_Fist]

اين سيد علي هم يه برنامه چند وقت پيش يادمه براي اينكار نوشته بود

[arashrj]

سلام
من برات يه كد نوشتم
ببين به كارت مياد

کد:

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

[Mohandese_Javan]

سلام!
ممنون آقا آرش! خود خودشه!
:wink: