با سلام
کسی میدونه چطور میشه این کار رو کرد . البته با آپی آی
با سلام
کسی میدونه چطور میشه این کار رو کرد . البته با آپی آی
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
اگه منظورت اینکه از یک گوشه پنجره بگیری و بکشی یعنی یک جای فرم کلیک کنی و با پایین نگهداشتن کلیک موس فرم رو جابجا کنی می تونی از این کد استفاده کنی
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
موفق باشی
سلام دوست عزیز
این روش فقط روی فرم جواب می دهد یعنی اگر ما یک تصویری را روی سرتاسر فرم داشته باشیم نمی توانیم فرم را حرکت بدهیم
آیا راهی برای حل این موضوع هست؟
خیلی متشکرم
آقا مصطفی خوب کاری نداره که. باید کدای مربوط به دو رویداد موس را در رویدادهای مشابه تصویر هم بنویسید. (البته اگه درست منظورتون رو گرفته باشم.) :wink:
دست شما درد نکنه آقای مقدم
ممنون
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
ممنون روش جالبی است//// کار رو راحت می کنه ....
من این کار را انجام دادم ولی جواب نداد
آقا مصطفی یک بار دیگه منظورتون رو واضح بنویسید شاید ایراد از گیرنده من بوده. :wink:
سلام
ببینید اگر از کد بالا استفاده کنیم فقط وقتی که فرم با موس را می کشیم فرم حرکت می کند ولی اگر مثلا یک عکس روی فرم باشد اگر موس را روی عکس بگذاریم و موس را بکشیم فرم حرکت نمی کند
من این کد را هم نوشتم ولی فایده ای نداشت
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
خیلی متشکرم
:shock: آقا مصطفی مطمئنی این کدی که نوشتی فایده ای نداشت. این کد کاملا درسته . من چون شک کرده بودم دوباره تست کردم. کار میکنه. :o
ببخشید
من اشتباه کرده بودم
متشکرم
Your Welcome :wink: