تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس)
#1
السلام عليكم كيف حال الاخوة
عند كود في الفجوال بيسيك 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
كيف يمكنني ان اترجم هذا الكود في الدوت نت ؟
الرد }}
تم الشكر بواسطة:
#2
فى حدث الكى داون للكنترولز
If e.KeyCode = Keys.Enter Then
Textbox2.Focus()
End If
الرد }}
تم الشكر بواسطة: Finish , Finish , larbihamri , elgokr
#3
لم تعد إنشاء مصفوفة أداة في وضع التصميم في الدوت نت كما كان سابقا في vb6

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

ولكن هناك طريقة أخرى (غير المصفوفة) لعمل نقل التحكم الى الأداة الأخرى بواسطة SelectNextControl وهذا مثال
في مشروع جديد ضع أكثر من تكست بوكس على الفورم وعدل هذا الكود بإضافة
أسماء أدوات TextBox مع الحدث KeyDown بعد كلمة Handles والتي تريدها فقط أن تتأثر بهذا الكود
PHP كود :
Private Sub TextBox_KeyDown(sender As ObjectAs KeyEventArgsHandles TextBox1.KeyDownTextBox2.KeyDownTextBox3.KeyDown
    If e
.KeyCode Keys.Enter Then
        SelectNextControl
(ActiveControlTrueTrueTrueTrue)
 
   End If
End Sub 
الرد }}
تم الشكر بواسطة: عبد العزيز البسكري , larbihamri , elgokr
#4
عفوا تم تعديل الكود
الرد }}
تم الشكر بواسطة: larbihamri
#5
شكر اخوتي بارك الله فيكم 
لكن كيف يمكنني في مثال الاخ Finish عندما مثلا يصل الى اخر تكست بوكس يرجع الى التكست بوكس الاول
الرد }}
تم الشكر بواسطة: Finish , Finish
#6
(05-08-18, 05:09 PM)larbihamri كتب : شكر اخوتي بارك الله فيكم 
لكن كيف يمكنني في مثال الاخ Finish عندما مثلا يصل الى اخر تكست بوكس يرجع الى التكست بوكس الاول

تفضل التعديل،
في داخل الكود ضع بدلا من TextBox3 آخر تكست بوكس لديك
PHP كود :
Private Sub TextBox_KeyDown(sender As ObjectAs KeyEventArgsHandles TextBox1.KeyDownTextBox2.KeyDownTextBox3.KeyDown
    If e
.KeyCode Keys.Enter Then
        If Not ActiveControl Is TextBox3 Then
            SelectNextControl
(ActiveControlTrueTrueTrueTrue)
 
       Else
            TextBox1
.Select()
 
       End If
 
   End If
End Sub 
الرد }}
تم الشكر بواسطة: larbihamri , elgokr
#7
شكرا اخي بارك الله فيك و في علمك
تحياتي للجميع
الرد }}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب تحويل كود من vba الى vb.net Lathe1 3 261 06-06-22, 09:59 PM
آخر رد: رمضان272
  [سؤال] استفسار عن تحويل كود طباعة داتا قريد فيو من اليسار لليمين Marwan9990 15 6,284 25-05-22, 11:39 PM
آخر رد: atefkhalf2004
  تحويل كود الى جافا saidhamed 1 203 25-05-22, 10:29 PM
آخر رد: asmarsou
  نقل نص البوتن إلى التيكست بوكس حماده ممدوح البحيرى 3 262 24-05-22, 02:51 AM
آخر رد: Codack
  مطلوب تحويل كود من vba الى vb.net Lathe1 2 207 21-05-22, 10:29 AM
آخر رد: Lathe1
  [VB.NET] نقاش تحويل المشاريع بتقنية vbnet للعمل على الأنظمة الأخرى Kit909 3 368 11-05-22, 05:22 AM
آخر رد: Kit909
  [VB.NET] تحويل مشروع من اصدار فيجوال بيسك لأصدار احدث على رمضان أبو احمد 1 364 09-05-22, 09:16 PM
آخر رد: ابراهيم ايبو
  تفريق الحروف فى التكست بوكس saidhamed 3 467 06-04-22, 06:45 PM
آخر رد: saidhamed
  كيف أربط الموبايل بالفيجوال بيسك وقراءة الباركود بالكاميرا ونقله للتكست بوكس جيولوجي مبتدئ 2 727 23-03-22, 03:32 AM
آخر رد: جيولوجي مبتدئ
  مشكلة في تحويل الصوت mohmmadadli 1 535 10-03-22, 12:41 AM
آخر رد: asmarsou

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم