سلام!
من يه فرم دارم كه BorderStyle اون رو None كردم. يعني نوار عنوان نداره. حالا براي حركت اين فرم با ماوس بايد چيكار كرد؟
ممنون!
بايد حركت موس را در حالي كه رويداد MouseDown رخ داده با خواص Left و Top فرم هماهنگ كني
سلام
توي برنامه هاي بخش آي پي آي يك برنامه چند وقت پيش آپلود شده بود كه همين كار رو مي كنه
:wink:
سلام!
جناب ريزوندي من نتونستم تو سرچ سايت چيزي پيدا كنم. شما لينكش رو داري به من بدي؟
ممنون! :wink:
اين سيد علي هم يه برنامه چند وقت پيش يادمه براي اينكار نوشته بود
سلام
من برات يه كد نوشتم
ببين به كارت مياد
کد:
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
سلام!
ممنون آقا آرش! خود خودشه!
:wink: