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

نسخة كاملة : الإنتقال من تيكست الى آخر عبر كبسة الإنتر لا تعمل في الكومبو .. لماذا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

 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

ما الحل

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

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

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