منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
label و list - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : label و list (/showthread.php?tid=19230)



label و list - Mohamed20 - 13-02-17

عندى 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 فقط


RE: label و list - مساعدة - 13-02-17

السلام عليكم

تفضل الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Label1.Text = String.Join(vbNewLine, test)
End Sub



RE: label و list - Mohamed20 - 13-02-17

(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

جزاك الله خير