مرحبا ،،
اذا صار اكثر من اداة على الفورم يصير اسمهم
Text(1).text
Text(2)text
text(3).text
كيف يمكن أن أعرف عدد التيكس الي على الفورم ؟؟ ( أي كيف أعرف الرقم الذي هو بين القوسين Text(x).text )
اذا عندي أكثر من Text بمثل الاسم على الفورم كيف أعرف عددها
مغلق
السلام عليكم
أخي الكريم إذا كان في design time فالامر سهل
فقط اختر الtext box الذي تريده واذهب في properties إلى index
وستجده مكتوبا هناك 1 أو 2 أو 3 أو 0
أما في run time تستطيع التعامل مع متغبر من نوع control وهكذا
حدد أكثر
لا ليس في الdesign
حصلت الكود
Text1.count ! لكن هذا لا يصلح للمتغيرات ..
ارجو الرد !
تم تعديل هذه المشاركة بواسطة abc2069 في 24 يوليو 2007 في 01:39
اخي micheal
مثال جيد بس بقى تخفي اللست و تضع مسج بوكس list.count - 1
هل يمكنك ان تشرح الكود لكي لا نسوي copy paste
لمعرفة العدد استخدم text1.count وتبدأ الارقام من 0 حتى العدد ناقص واحد ولعمل loop او المرور على قيمهم استخدم
Dim i As Long For i = 0 To Text1.Count - 1 Debug.Print Text1(i) Next او Dim txt As TextBox For Each txt In Text1 Debug.Print txt.Text Next
السلام عليكم
أخي الكريم أضف ما شئت من text1 وجرب هذا الكود
Dim Counter As Byte Dim Ctr As Control For Each Ctr In Me.Controls If Ctr.Name = "Text1" Then Counter = Counter + 1 End If Next MsgBox Counter
أما بخصوص المثال الاول
فهو سهل
فقط قمنا بعمل متغير من نوع control
وهذا المتغير سيحمل أي كنترول لذلك استعملنا TypeOf
حتى نحدد نوع الكنترول وبعد تحديده تستطيع عمل ما تشاء
هذا الموضوع مغلق.