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

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

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

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