+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود لجعل الكود ينفذ عن طريق زران في الكيبورد (/showthread.php?tid=45046)
كود لجعل الكود ينفذ عن طريق زران في الكيبورد - عبدالرحمن الأصبحي - 19-01-23
السلام عليكم ورحمة الله وبركاته
ممكن اذا تكرمتم
معي كود ينفذ بعد الخروج من التكست بوكس عند الضغط على زر الانتر ينفذ.
اريد ايضا ينفذ نفس الكود عند النقر على زر tab
وايضا سؤال كيف اجعل عند النقر على زر الانتر لا يصدر صوت.
وشكراً جزيلاً لكم
RE: كود لجعل الكود ينفذ عن طريق زران في الكيبورد - asmarsou - 20-01-23
(19-01-23, 10:04 PM)عبدالرحمن الأصبحي كتب : السلام عليكم ورحمة الله وبركاتهو عليكم السلام و رحمة الله و بركاته
ممكن اذا تكرمتم
معي كود ينفذ بعد الخروج من التكست بوكس عند الضغط على زر الانتر ينفذ.
اريد ايضا ينفذ نفس الكود عند النقر على زر tab
وايضا سؤال كيف اجعل عند النقر على زر الانتر لا يصدر صوت.
وشكراً جزيلاً لكم
اذا كنت تقصد التنقل او الانتقال من تكست بوكس الى آخر عبر ضغط زر انتر
فهذا مثال يتضمن الجزء الاخير من سؤالك
PHP كود :
Public Class Form1
Private Sub TextBoxs_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown
If e.KeyCode = Keys.Enter Then
Dim txtBox As TextBox = CType(sender, TextBox)
Me.SelectNextControl(txtBox, True, True, True, True)
e.SuppressKeyPress = True
End If
End Sub
Private Sub TextBoxs_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
Dim txtBox As TextBox = CType(sender, TextBox)
Me.SelectNextControl(txtBox, True, True, True, True)
End If
End Sub
End Class