منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] الإنتقال من تيكست الى آخر عبر كبسة الإنتر لا تعمل في الكومبو .. لماذا - نسخة قابلة للطباعة

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

الإنتقال من تيكست الى آخر عبر كبسة الإنتر لا تعمل في الكومبو .. لماذا - mh66 - 03-03-15

السلام عليكم

الكود التالي للإنتقال من تيكست الى آخر 

 Private Sub textBox5_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

        Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
        If KeyAscii = 13 Then
            TextBox6.Focus()
        End If
    End Sub

لكن اذا كان المؤشر داخل كومبو بوكس وطبقنا الكود السابق يبقى المؤشر داخل الكومبو ولا ينتقل للتكست او الكومبو التالي
إلا عبر الضغط على زر Tab

ما الحل

شكرا

RE: الإنتقال من تيكست الى آخر عبر كبسة الإنتر لا تعمل في الكومبو .. لماذا - ممدوح الخطيب - 04-03-15

إستخدم الكود التالي في حدث  KeyPress الخاص بالكومبو
PHP كود :
If e.KeyChar.Equals(Chr(Keys.Enter)) Then
            TextBox1.Focus()
        End If 
* - مرفق مثال

RE: الإنتقال من تيكست الى آخر عبر كبسة الإنتر لا تعمل في الكومبو .. لماذا - raoe-041 - 04-03-15

و ايضا يوجد هذا الكود ................ في حدث KeyUp

PHP كود :
If e.KeyCode = Keys.Enter Then
            SendKeys.Send("{Tab}")
        End If 


RE: الإنتقال من تيكست الى آخر عبر كبسة الإنتر لا تعمل في الكومبو .. لماذا - mh66 - 04-03-15

كفيتو ووفيتو

وفق الله الجميع