dim no1, no2, no3 as string
no1 = "ali"
no2 = "ameer"
no3 = "ahmed"
dim i as integer
for i=1 to 3
textbox.text = no & i
next
اريد ان يضهر في صندوق النص قيمة المتغير (no1) ثم قيمة المتغير (no2) ثم الثالث
ولا اريد ان تضهر "no1" نفسها بل قيمتها النصية
ارجو المساعدة
شكرا لردك يا سعود ولكني اريد الفكرة وليس البرنامج بحد ذاته
اريد طريقة لضم النص "no" مع (i) وعندما افعل ذلك بالطريقة العادية سيضهر في صندوق النص "no1 no2 no3" في حين انا اريد قيمها كمتغيرات وليس كنصوص .
اخي الكريم فاهم عليك والكود اللي كتبت لك يلبي المطلوب . باستثناء اضافة رقم وههذه بسيطة فقط اضف الاسماء الى قائمة من نوع
كود :
Dim lst As New List(Of String)
Dim no1, no2, no3 As String
no1 = "ali"
no2 = "ameer"
no3 = "ahmed"
lst.Add(no1)
lst.Add(no2)
lst.Add(no3)
TextBox1.Clear()
For a = 0 To lst.Count - 1
TextBox1.AppendText(lst.Item(a) & ": " & a & vbNewLine)
Next
معذرة على التدخل ولكن ربما تقصد طريقة المصفوفات
وهو نفس الكود تقريبا
PHP كود :
Dim no(3) As String
no(1) = "ali"
no(2) = "ameer"
no(3) = "ahmed"
TextBox1.Clear()
Dim i As Integer
For i = 1 To 3
TextBox1.Text &= no(i) & " "
Next
ويمكن ترك no() فارفة عند التعريف dim
كهذا
لتعريف عدد كبير من الاسماء وليس 3 فقط