السلام عليكم أحبائي
السلام عليكم
قمت بجعل جميع تيكست الفورم في مصفوفة واحدة بسبب العدد الكبير للأدوات
لكن لاحظت أن مكان كتابة كود أي تيكس هو في نفس المكان
كيف أجعل الكود يعمل فقط مع التيكس1 الذي يحمل index = 2
text1(2).text أي
Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then label1.caption = "salam"
End Sub
كل تيكست له index خاص اقف علي التكست الاول وضع في index الخاص به 0 واقف علي التكس الثاني وضع في index الخاص به 1
وهكذا وعند كتابه الكود
text1(0).text
text(1).text
وهكذا
اوك
السلام عليكم
بصراحة سؤالك جميل و عندي حل له إن شاء الله يعجبك و هو استخدام دالة select
فيصبح الكود
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Index
Case 2
If KeyAscii = 13 Then Label1.Caption = "salam"
End Select
End Sub
بالتوفيق
للإطلاع على جديد الكتب من تأليفي
الطريق لاحتراف تطوير المواقع ج1 | ج2 | ج3 | ج4
4Colors | Break Out | Classic Snake | لعبة السودوكو - 2014 | لعبة XO
^_^