السلام عليكم ورحمه الله وبركاته
ارجو مساعده اعضى المنتدى في سؤالي هذا وهو
عن عجله الماوس اضن ان الحدث الخاص بعجله الماوس هو MouseWheel ولكن كيف اعرف متى تتجه عجلة الماوس الى الاعلى او الاسفل
انظر لعنوان الفورم
كود :
Private Sub Form1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
Me.Text = "اتجه للخلف"
Else
Me.Text = "اتجه للأمام"
End If
End Sub
قيمة e.Delta تدل على الإتجاه
120 موجبه في الإتجاه للأمام
120- سالبة في الإتجاه للخلف
واختصارا
أكبر من صفر في الإتجاه للأمام
أقـل من صفر في الإتجاه للخلف
تمنياتي للجميع بالتوفيق
(22-11-18, 03:35 PM)rmnr كتب : [ -> ]انظر لعنوان الفورم
كود :
Private Sub Form1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
Me.Text = "اتجه للخلف"
Else
Me.Text = "اتجه للأمام"
End If
End Sub
قيمة e.Delta تدل على الإتجاه
120 موجبه في الإتجاه للأمام
120- سالبة في الإتجاه للخلف
واختصارا
أكبر من صفر في الإتجاه للأمام
أقـل من صفر في الإتجاه للخلف
تمنياتي للجميع بالتوفيق
تقبل شكري يا سيدي على الرد السرع
والجميل حفظك الله من كل شر