+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : النقاش والأسئلة حول الإصدارات الأحدث من الفيجوال ستوديو (http://vb4arb.com/vb/forumdisplay.php?fid=155)
+--- الموضوع : [سؤال] كود التركيز على زر معين Button (/showthread.php?tid=44535)
كود التركيز على زر معين Button - danti - 11-12-22
السلام عليكم ورحمة الله وبركاته
أخبار الجميع؟
أعلم أنه سؤال غبي.. ولكن والله لي أكثر من يومين أبحث عن الطريقة.
بحثت في المنتدى عن حل لسؤالي ولم أجد.. مع أنني متأكد أن الحل موجود أو أنه كان موجود..
أبحث عن طريقة جعل الزر Button مفعل دائما.. لا أدري أكان كود أم هي من ضمن خصائص ال Button ..
كنت استخدمها قبل أن أترك الفيجوال من 5 سنوات تقريباً.. وعندما رجعت نسيت الطريقة
للتوضيح أكثر..
لديك Form يوجد فيه TextBox و Button أو أكثر من زر
أريد عند الكتبة في مربع النص يكون هناك زر الافتراضي أو زر يكون عليه التركيز.. بحيث لو ضغطت Enter يتم الضغط على الزر بدون استخدام الفأرة.
طبعاً لا اتكلم عن خاصية TabIndex ولا كود Button1.Focus
وشكراً للجميع
RE: كود التركيز على زر معين Button - Taha Okla - 11-12-22
وعليكم السلام ورحمة الله وبركاته
كود التفعيل على زر (Enter) هو :
كود :
Me.AcceptButton = Button1وكود التفعيل على زر (Esc) هو :
كود :
Me.CancelButton = Button2هذه الاكواد ضعها في حدث اللود للفورم أو في أي حدث تريد بعدها تفعيل زر معين على أحد هذه الأزرار ..
هذه الخصائص موجود في خصائص النافذة (بينما أنت كنت تبحث في خصائص الأزرار) لذلك أنت لم تجدها..
أظن أنك كنت من مبرمجي VB6.0 لأنها كانت بالفعل من خصائص الأزرار وقتها..
---------------
وفقك الله ..
RE: كود التركيز على زر معين Button - danti - 11-12-22
جزاك الله خيراً أخي Taha Okla ورحم الله والديك
فعلاً كنت استخدم فيجوال بيسك 6 الله يذكره بالخير.
الغريب أنني لم أجد أحداً يتكلم عن هذا الكود.. أو ربما كان بحثي سقيماً..
على كل حال شكراً لك.. لقد أفدتني وأفدت من يبحث عن هذا الكود..
RE: كود التركيز على زر معين Button - سالم العنزي - 19-02-23
كود :
'توضع في مربع TextBox في حدث (KeyDown)
Private SubTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
'الانتقال الي زر Button1
If e.KeyCode = Keys.Enter Then
Button1.PerformClick()
End If
End Sub