منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عند الضغط على مفتاح enter من لوحة المفاتيح
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله

احتاج كود يفعل الاتي :

عند الضغط على مفتاح انتر يجعل الــ Button1 في وضع Click

للتوضيح اريد استعماله في login form عند كتابة الرقم السري للبرنامج اضغط انتر للدخول

وشكراً لكم
وجدت الحل والحمد لله

تفضلو الكود للإستفادة

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
Button1_Click(sender, e)
End If
End Sub
السلام عليكم ورحمة الله وبركاته
أخي الكريم
تستطيع فعل ذلك بالذهاب إلى خصائص Form
وتغيير القيمة للخاصية AcceptButton من None إلى Button1
وإذا أردت تفعيل Cancel عند الضغط على زر Esc :
فغير القيمة للخاصية CancelButton من None إلى Button2

بالتوفيق
بارك الله فيك اخي

رائـــــع
بارك الله فيك اخي

رائـــــع
EHAB.NET كتب :وجدت الحل والحمد لله

تفضلو الكود للإستفادة

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
Button1_Click(sender, e)
End If
End Sub

بارك الله فيك

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
أخي الكريم
تستطيع فعل ذلك بالذهاب إلى خصائص Form
وتغيير القيمة للخاصية AcceptButton من None إلى Button1
وإذا أردت تفعيل Cancel عند الضغط على زر Esc :
فغير القيمة للخاصية CancelButton من None إلى Button2

بالتوفيق

دئـــــــما بارع وسباق بالخير
"من حرصك ع إفادة الأخرين لم تدع لنا فرصة "
بارك الله فيك وجعلة في ميزان حسناتك
لكن كيف أجعله إذا ضغطت على enter يقفز إلى التكست بوكس الموالي
(27-11-20, 02:18 PM)Necro PC كتب : [ -> ]لكن كيف أجعله إذا ضغطت على enter يقفز إلى التكست بوكس الموالي


كود :
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox2.Focus
End If
End Sub

الافضل ترتيب التكست بوكسات باستخدام الخاصية TabIndex وبالتالي استخدام زر Tab للتنقل بينهم دون الحاجة لكتابة اي كود