الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود ايقاف الاسكرول بتاع الماوس

بدأه Ayman Soft في 19 أغسطس 2012 · 1 رد · 544 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اريد الاستفسار عن كود لايقاف الاسكرول الخاص بالماوس

واريد ايضا كود يقوم بايقاف بعض الازرار فى الكيبوورد

جزاكم الله خيراا

#2

أخي الفاضل Ayman Soft

أنت لم تحدد في أي عنصر من عناصر الفورم تريد أن تستخدم هذه الخاصية وعلي أي حال لقد وضعت لك مثال للعنصر شائع الاستخدام وهو Combobox

ضع هذا الكود في حدث Mouse Wheel لمنع استخدام عجلة الماوس .

Private Sub Comobox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Comobox1.MouseWheel
        DirectCast(e, HandledMouseEventArgs).Handled = True
    End Sub

أما بخصوص سؤالك الثاني وهو تعطيل مفاتيح بعينها داخل KeyBoard

اليك كود كمثال علي تعطيل مفتاح المسافة

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Space Then
            e.SuppressKeyPress = True
        End If
    End Sub

بالتوفيق

1

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

مواضيع مشابهة