[larbihamri]

السلام عليكم كيف حال الاخوة
عند كود في الفجوال بيسيك 6 كنت استعمله سابقا للتنقل بين التكست بوكس 

كود :

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
C = Me.Text1.UBound
If Index <> C And KeyAscii = 13 Then Me.Text1(Index + 1).SetFocus
If Index = C And KeyAscii = 13 Then Me.Text1(0).SetFocus
End Sub

كيف يمكنني ان اترجم هذا الكود في الدوت نت ؟

[mero5000]

فى حدث الكى داون للكنترولز
If e.KeyCode = Keys.Enter Then
Textbox2.Focus()
End If

[Finish]

لم تعد إنشاء مصفوفة أداة في وضع التصميم في الدوت نت كما كان سابقا في vb6

لكن يمكن عملها بواسطة الكود لكنها مجهدة قليلا
لأنك لا ترى مصفوفة الأدوات في التصميم وإنما بعد تشغيل المشروع

ولكن هناك طريقة أخرى (غير المصفوفة) لعمل نقل التحكم الى الأداة الأخرى بواسطة SelectNextControl وهذا مثال
في مشروع جديد ضع أكثر من تكست بوكس على الفورم وعدل هذا الكود بإضافة
أسماء أدوات TextBox مع الحدث KeyDown بعد كلمة Handles والتي تريدها فقط أن تتأثر بهذا الكود

PHP كود :

Private Sub TextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
    If e.KeyCode = Keys.Enter Then
        SelectNextControl(ActiveControl, True, True, True, True)
    End If
End Sub 


[Finish]

عفوا تم تعديل الكود

[larbihamri]

شكر اخوتي بارك الله فيكم 
لكن كيف يمكنني في مثال الاخ Finish عندما مثلا يصل الى اخر تكست بوكس يرجع الى التكست بوكس الاول

[Finish]

(05-08-18, 05:09 PM)larbihamri كتب : شكر اخوتي بارك الله فيكم 
لكن كيف يمكنني في مثال الاخ Finish عندما مثلا يصل الى اخر تكست بوكس يرجع الى التكست بوكس الاول

تفضل التعديل،
في داخل الكود ضع بدلا من TextBox3 آخر تكست بوكس لديك

PHP كود :

Private Sub TextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
    If e.KeyCode = Keys.Enter Then
        If Not ActiveControl Is TextBox3 Then
            SelectNextControl(ActiveControl, True, True, True, True)
        Else
            TextBox1.Select()
        End If
    End If
End Sub 


[larbihamri]

شكرا اخي بارك الله فيك و في علمك
تحياتي للجميع