حرکت دادن فرم با موس

[binyaz2003]

با سلام
کسی میدونه چطور میشه این کار رو کرد . البته با آپی آی

[سعید قدیری مقدم]

اگه منظورت اینکه از یک گوشه پنجره بگیری و بکشی یعنی یک جای فرم کلیک کنی و با پایین نگهداشتن کلیک موس فرم رو جابجا کنی می تونی از این کد استفاده کنی


Dim x1, y1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = 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 - x1
Me.Top = Me.Top + Y - y1
End If
End Sub



موفق باشی

[mostafa612003]

سلام دوست عزیز
این روش فقط روی فرم جواب می دهد یعنی اگر ما یک تصویری را روی سرتاسر فرم داشته باشیم نمی توانیم فرم را حرکت بدهیم
آیا راهی برای حل این موضوع هست؟


خیلی متشکرم

[M-Gheibi]

آقا مصطفی خوب کاری نداره که. باید کدای مربوط به دو رویداد موس را در رویدادهای مشابه تصویر هم بنویسید. (البته اگه درست منظورتون رو گرفته باشم.) :wink:

[binyaz2003]

دست شما درد نکنه آقای مقدم
ممنون

[arshia_]

ممنون روش جالبی است//// کار رو راحت می کنه ....

[mostafa612003]

من این کار را انجام دادم ولی جواب نداد

[M-Gheibi]

آقا مصطفی یک بار دیگه منظورتون رو واضح بنویسید شاید ایراد از گیرنده من بوده. :wink:

[mostafa612003]

سلام
ببینید اگر از کد بالا استفاده کنیم فقط وقتی که فرم با موس را می کشیم فرم حرکت می کند ولی اگر مثلا یک عکس روی فرم باشد اگر موس را روی عکس بگذاریم و موس را بکشیم فرم حرکت نمی کند
من این کد را هم نوشتم ولی فایده ای نداشت



Private Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub

Private Sub image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = Me.Left + X - x1
Me.Top = Me.Top + Y - y1
End If
End Sub

خیلی متشکرم

[M-Gheibi]

:shock: آقا مصطفی مطمئنی این کدی که نوشتی فایده ای نداشت. این کد کاملا درسته . من چون شک کرده بودم دوباره تست کردم. کار میکنه. :o

[mostafa612003]

ببخشید
من اشتباه کرده بودم
متشکرم

[M-Gheibi]

Your Welcome :wink: