تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن الفاره
#1
السلام عليكم ورحمه الله وبركاته 
ارجو مساعده اعضى المنتدى في سؤالي هذا وهو
عن عجله الماوس اضن ان الحدث الخاص بعجله الماوس هو MouseWheel ولكن كيف اعرف متى تتجه عجلة الماوس الى الاعلى او الاسفل
الرد
تم الشكر بواسطة:
#2
انظر لعنوان الفورم
كود :
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- سالبة في الإتجاه للخلف
واختصارا 
أكبر من صفر في الإتجاه للأمام
أقـل من صفر في الإتجاه للخلف

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى صفوف الداتا جريد فيو احمد خطاب 1 65 07-02-19, 03:51 AM
آخر رد: حريف برمجة
  [كود] سؤال لأهل الخبرة كيف يمكن استدعاء شااشة لبرنامج تم برمجتة بالجافا dametucorazon 1 79 06-02-19, 10:35 AM
آخر رد: dametucorazon
  سؤال حول امر الطباعة الفورية Osama Bayoumy 6 577 02-02-19, 01:08 PM
آخر رد: atef_020
  سؤال BackgroundWorker new_programer 5 197 23-01-19, 06:50 PM
آخر رد: %Eman%
  سؤال بخصوص تشيك ليست بوكس نور الهدى الهدى 3 137 22-01-19, 07:51 AM
آخر رد: حريف برمجة
  سؤال في تغيير قيمة الخلية sofiane-phy 3 140 16-01-19, 11:09 PM
آخر رد: sofiane-phy
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 260 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 421 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  سؤال عن سبب ظهور خطا غير متوقع alipro 3 145 08-01-19, 04:28 AM
آخر رد: محمد كريّم
  سؤال عن ربط الاكسل مع vb philo 3 171 07-01-19, 02:57 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم