تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
=== كيف أطبق كود على text1(2).text ... مع وجود آندكس ===
#1
السلام عليكم أحبائي

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

كيف أجعل الكود يعمل فقط مع التيكس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
الرد
تم الشكر بواسطة:
#2
السلام عليكم

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

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد
تم الشكر بواسطة: sniper-jawadino
#3
أو
PHP كود :
if index 1 then
If KeyAscii 13 Then Label1.Caption "salam"
End if 
منقطع .. للدراسة Confused
الرد
تم الشكر بواسطة: sniper-jawadino
#4
abulayth , mamas1

مشكوريييييييييين إخواني
جزاكم الله خير جزاء على مساعدتي
الرد
تم الشكر بواسطة:
#5
كود :
i=2

text1(i).text="gg"

للتكرار

كود :
for i=0 to 10
text1(i).text="gg"
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل زر الامر ينتقل امام text عند انتقل موشر الكتابه الى text اخر ؟؟ Microformt 2 175 29-10-17, 07:33 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 372 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 165 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 251 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 252 22-08-17, 10:24 PM
آخر رد: guerciftech
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 307 22-08-17, 07:00 PM
آخر رد: Microformt
  اريد احدث تاريخ يظهر في (text1.txt) scsi7000 4 281 01-08-17, 07:17 PM
آخر رد: scsi7000
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 2 291 28-05-17, 11:58 PM
آخر رد: Microformt
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 298 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 1,689 17-11-16, 11:54 PM
آخر رد: iisys

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


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