[EHAB.NET]

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

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

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

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

وشكراً لكم

[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

بالتوفيق

[EHAB.NET]

بارك الله فيك اخي

رائـــــع

[EHAB.NET]

بارك الله فيك اخي

رائـــــع

[VBMaged]

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

بالتوفيق

دئـــــــما بارع وسباق بالخير
"من حرصك ع إفادة الأخرين لم تدع لنا فرصة "
بارك الله فيك وجعلة في ميزان حسناتك

[Necro PC]

لكن كيف أجعله إذا ضغطت على enter يقفز إلى التكست بوكس الموالي

[Anas Mahmoud]

(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 للتنقل بينهم دون الحاجة لكتابة اي كود