منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - === كيف أطبق كود على text1(2).text ... مع وجود آندكس ===

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

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

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

السلام عليكم

استخدم 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

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

أو

PHP كود :

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

abulayth , mamas1

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

كود :

i=2

text1(i).text="gg"

للتكرار

كود :

for i=0 to 10

text1(i).text="gg"

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sniper-jawadino

abulayth

mamas1

sniper-jawadino

asto