[sniper-jawadino]

السلام عليكم أحبائي

السلام عليكم
قمت بجعل جميع تيكست الفورم في مصفوفة واحدة بسبب العدد الكبير للأدوات
لكن لاحظت أن مكان كتابة كود أي تيكس هو في نفس المكان

كيف أجعل الكود يعمل فقط مع التيكس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

[abulayth]

السلام عليكم

استخدم select - case كالتالي

كود :

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Index
Case Is = 1
If KeyAscii = 13 Then Label1.Caption = "salam"
End Select
End Sub

يعطيك العافية

[mamas1]

أو

PHP كود :

if index = 1 then
If KeyAscii = 13 Then Label1.Caption = "salam"
End if 


[sniper-jawadino]

abulayth , mamas1

مشكوريييييييييين إخواني
جزاكم الله خير جزاء على مساعدتي

[asto]

كود :

i=2

text1(i).text="gg"

للتكرار

كود :

for i=0 to 10
text1(i).text="gg"