[Fantastico]

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" نفسها بل قيمتها النصية

ارجو المساعدة

[سعود]

مافيه داعي لجملة For

كود :

       Dim no1, no2, no3 As String
       no1 = "ali"
       no2 = "ameer"
       no3 = "ahmed"

       TextBox1.AppendText(no1 & vbNewLine & no2 & vbNewLine & no3)

[Fantastico]

شكرا لردك يا سعود ولكني اريد الفكرة وليس البرنامج بحد ذاته
اريد طريقة لضم النص "no" مع (i) وعندما افعل ذلك بالطريقة العادية سيضهر في صندوق النص "no1 no2 no3" في حين انا اريد قيمها كمتغيرات وليس كنصوص .

[سعود]

اخي الكريم فاهم عليك والكود اللي كتبت لك يلبي المطلوب . باستثناء اضافة رقم وههذه بسيطة فقط اضف الاسماء الى قائمة  من نوع

كود :

Listof(string)

كود :

       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

[Fantastico]

نعم هذا يلبي المطلوب

[mohamdser]

معذرة على التدخل ولكن ربما تقصد طريقة المصفوفات
وهو نفس الكود تقريبا

     

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
كهذا

PHP كود :

       Dim no() As String 


لتعريف عدد كبير من الاسماء وليس 3 فقط