[VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس)

[VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - نسخة قابلة للطباعة

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

تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - larbihamri - 05-08-18

السلام عليكم كيف حال الاخوة
عند كود في الفجوال بيسيك 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

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

RE: تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - mero5000 - 05-08-18

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

RE: تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - Finish - 05-08-18

لم تعد إنشاء مصفوفة أداة في وضع التصميم في الدوت نت كما كان سابقا في 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 

RE: تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - Finish - 05-08-18

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

RE: تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - larbihamri - 05-08-18

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

RE: تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - Finish - 05-08-18

(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 

RE: تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) - larbihamri - 05-08-18

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