+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : === كيف أطبق كود على text1(2).text ... مع وجود آندكس === (/showthread.php?tid=810)
=== كيف أطبق كود على text1(2).text ... مع وجود آندكس === - sniper-jawadino - 01-11-13
السلام عليكم أحبائي
السلام عليكم
قمت بجعل جميع تيكست الفورم في مصفوفة واحدة بسبب العدد الكبير للأدوات
لكن لاحظت أن مكان كتابة كود أي تيكس هو في نفس المكان
كيف أجعل الكود يعمل فقط مع التيكس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
RE: === كيف أطبق كود على text1(2).text ... مع وجود آندكس === - abulayth - 01-11-13
السلام عليكم
استخدم 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يعطيك العافية
RE: === كيف أطبق كود على text1(2).text ... مع وجود آندكس === - mamas1 - 01-11-13
أو
PHP كود :
if index = 1 then
If KeyAscii = 13 Then Label1.Caption = "salam"
End if
RE: === كيف أطبق كود على text1(2).text ... مع وجود آندكس === - sniper-jawadino - 02-11-13
abulayth , mamas1
مشكوريييييييييين إخواني
جزاكم الله خير جزاء على مساعدتي
RE: === كيف أطبق كود على text1(2).text ... مع وجود آندكس === - asto - 02-11-13
كود :
i=2
text1(i).text="gg"للتكرار
كود :
for i=0 to 10
text1(i).text="gg"