منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عندى label و list of string

كود :

Dim test As New List(Of String)

        test.Add("SSSSSSSSSSSSSSSS")

        test.Add("SSSSSSSSSSSSSSSS2")

        test.Add("SSSSSSSSSSSSSSSS3")

        test.Add("SSSSSSSSSSSSSSSS4")

        test.Add("SSSSSSSSSSSSSSSS5")

        test.Add("SSSSSSSSSSSSSSSS6")

اريد اضافة هذه items فى label

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For i = 0 To test.Count - 1

            Label1.Text = vbNewLine & test(i)

        Next

    End Sub

لاكن الكود يدخل اخر item فقط

السلام عليكم

تفضل الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Label1.Text = String.Join(vbNewLine, test)

End Sub

(13-02-17, 07:23 PM)مساعدة كتب : [ -> ]السلام عليكم

تفضل الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Label1.Text = String.Join(vbNewLine, test) End Sub

جزاك الله خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mohamed20

مساعدة

Mohamed20