منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التنقل بين حقول textbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التنقل بين حقول textbox (/showthread.php?tid=34554)

الصفحات: 1 2

التنقل بين حقول textbox - paveldida - 01-05-20

السلام عليكم

ممكن الطريقة لكي اتمكن من التنقل بين حقول textbox عن طريق النقر على زر enter من لوحة المفاتيح
مع استتناء بعضها 
مع تحياتي الطيبة للجميع


RE: التنقل بين حقول textbox - ابراهيم ايبو - 01-05-20

السلام عليكم ورحمة الله وبركاته
اخي الكريم تابع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=34180

RE: التنقل بين حقول textbox - paveldida - 02-05-20

(01-05-20, 11:13 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم تابع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=34180


عندي textbox من 1 الى 14 
اريد التنقل بينهم بالظغط على enter  بعد ادخال المعطيات في كل حقل


RE: التنقل بين حقول textbox - Alhootti1 - 02-05-20

اجعل Tapindex لكل تكست بوكس وابدأ من 0  إلى 14 بالترتيب
ثم استخدم هذا الكود لكل تكست في خاصية KeyPress  

PHP كود :
Private Sub Text1_KeyPress (KeyAscii As Integer)
        If KeyAscii = 13 Then  
           SendKeys "{tab}"  
           KeyAscii = 0      
        End If
     End Sub 
2.12.0.0

RE: التنقل بين حقول textbox - ابراهيم ايبو - 02-05-20

السلام عليكم
اخي هذا الكود بعد الكتابة في التكست بوكس وضغط انتر يتحول الى التكست بوكس الثاني او الذي تحدده انت
كود :
 Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Enter Then
           TextBox2.Select()
       End If
   End Sub
وكل تكست بوكس اكتب كوده لوحده

RE: التنقل بين حقول textbox - paveldida - 02-05-20

(02-05-20, 12:21 AM)ابراهيم ايبو كتب : السلام عليكم
اخي هذا الكود بعد الكتابة في التكست بوكس وضغط انتر يتحول الى التكست بوكس الثاني او الذي تحدده انت
كود :
 Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Enter Then
           TextBox2.Select()
       End If
   End Sub
وكل تكست بوكس اكتب كوده لوحده

نجح الكود في التنقل بين texbox لاكن كلما انتقل للحقل الثاني يصبح الحقل الاول فارغ


RE: التنقل بين حقول textbox - ابراهيم ايبو - 02-05-20

السلام عليكم 
تفضل هذا مثال

RE: التنقل بين حقول textbox - paveldida - 02-05-20

(02-05-20, 01:51 AM)ابراهيم ايبو كتب : السلام عليكم 
تفضل هذا مثال

شكرا أخي 
إكتشفت الخطأ حيث أني كنتي مفعل multiline في textbox

سؤال آخر ، هل يمكن تغيرر الصوت الصادر عند الظغط على enter  لأن الميساج الصوتي يشبه رسالة خطأ


RE: التنقل بين حقول textbox - alshandodi - 02-05-20

السلام عليكم اخي العزيز يمكنك إضافة هذا الكود في الموديول 

كود :
 Public Sub Nextcontrl(ByVal e As KeyEventArgs, ByVal controlnext As Control)
       If e.KeyCode = Keys.Enter Then
           controlnext.Focus()
       End If
   
   End Sub



في اي مكان تريد مثال DateTimePicker1 أو CheckBox أو ComboBox أو Textbox


تعمل Event KeyDown

وتضع هذا الكود
كود :
Nextcontrl(e, CheckBox2)


RE: التنقل بين حقول textbox - WaeLx - 02-05-20

[quote pid='160361' dateline='1588372516']

سؤال آخر ، هل يمكن تغيرر الصوت الصادر عند الظغط على enter  لأن الميساج الصوتي يشبه رسالة خطأ

[/quote]

السلام عليكم

 e.SuppressKeyPress = True


كود :
If e.KeyCode = Keys.Enter Then
           e.SuppressKeyPress = True
           TextBox2.Focus()

       End If