[معاذ_ابراهيم]

السلام عليكم ورحمه الله وبركاته 
ارجو مساعده اعضى المنتدى في سؤالي هذا وهو
عن عجله الماوس اضن ان الحدث الخاص بعجله الماوس هو MouseWheel ولكن كيف اعرف متى تتجه عجلة الماوس الى الاعلى او الاسفل

[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- سالبة في الإتجاه للخلف
واختصارا 
أكبر من صفر في الإتجاه للأمام
أقـل من صفر في الإتجاه للخلف

تمنياتي للجميع بالتوفيق

[معاذ_ابراهيم]

(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- سالبة في الإتجاه للخلف
واختصارا 
أكبر من صفر في الإتجاه للأمام
أقـل من صفر في الإتجاه للخلف

تمنياتي للجميع بالتوفيق

تقبل شكري يا سيدي على الرد السرع
والجميل حفظك الله من كل شر