منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال عن الفاره - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال عن الفاره (/showthread.php?tid=27585)

سؤال عن الفاره - معاذ_ابراهيم - 22-11-18

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

RE: سؤال عن الفاره - rmnr - 22-11-18

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

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

RE: سؤال عن الفاره - معاذ_ابراهيم - 22-11-18

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

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