[mh66]

السلام عليكم

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

 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 


* - مرفق مثال

[raoe-041]

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

PHP كود :

If e.KeyCode = Keys.Enter Then
            SendKeys.Send("{Tab}")
        End If 


[mh66]

كفيتو ووفيتو

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