السلام عليكــم ورحمـة الله وبركاتــه ،،
أخواني عندي سؤال لو سمحتوا في Microsoft Visual Studio 2008
كيف يتم فهرسة الأدوات
في فيجوال بيسك 6 يتم نسخ الأداة ولصقها
مثال
عندنا ثلاث Texts
Text1(0) Text1(1) Text1(2)
كيف يتم عملها في فيجوال بيسك دوت نت والتعامل مع الكود
وهذا الكود للتعامل مع الـ Texts في الفيجوال بيسك 6
Dim i As Integer For i = 0 To Text1.Count - 1 Text1(i).Text = i Next i
وشكرًا لكم مقدماً
للرفع
.
.
.
ما اعرفه ان هذه الوظيفة لم تعد موجودة في الفيجوال بيسك دوت نت.
[وسط]لا اله الا انت سبحانك انى كنت من الظالمين
[/وسط]
مرحباً
أوافق الأخ حسان في ماقاله, لكنه يمكنك عمل شيء شبيه بهذا :
[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1
Dim ArrayOfTextBoxes [color= #b1b100;]As TextBox[color= #009900;]([color= #009900;])
Dim [color= #990000;]Current [color= #b1b100;]As Integer [color= #339933;]= [color= #cc66cc;]1
[color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_
ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles Button1[color= #339933;].Click
[color= #b1b100;]For I [color= #b1b100;]As Integer [color= #339933;]= [color= #cc66cc;]0 To UBound[color= #009900;](ArrayOfTextBoxes[color= #009900;])
ArrayOfTextBoxes[color= #009900;](I[color= #009900;])[color= #339933;].Text [color= #339933;]= [color= #009900;]([color= #990000;]Current [color= #339933;]+ I[color= #009900;])
[color= #990000;]Next
[color= #990000;]Current [color= #339933;]+= [color= #cc66cc;]8
[color= #990000;]End Sub
[color= #000000; font-weight: bold;]Private Sub Form1_Load[color= #009900;](ByVal Sender [color= #b1b100;]As Object[color= #339933;], [color= #990000;]_
ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles Me[color= #339933;].Load
Dim NArrayOfTextBoxes [color= #b1b100;]As TextBox[color= #009900;]([color= #009900;]) [color= #339933;]= [color= #009900;]{TextBox1[color= #339933;], TextBox2[color= #339933;], TextBox3[color= #339933;], TextBox4[color= #339933;], [color= #990000;]_
TextBox5[color= #339933;], TextBox6[color= #339933;], TextBox7[color= #339933;], TextBox8[color= #009900;]}
ArrayOfTextBoxes [color= #339933;]= NArrayOfTextBoxes
[color= #990000;]End Sub
[color= #990000;]End [color= #000000; font-weight: bold;]Classبالتوفيق
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
Technical Lead Developer
اللهم قنى شر الجهل و الجهلاء
( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}
For Example
Command1
Command2
For index As Integer = 1 To 2
Controls("command" & index).Text = "Test"
Nextالمتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…