25-08-17, 10:57 AM
(25-08-17, 10:00 AM)srca100050 كتب : السلام عليكم
لدي ليست بوكس بها ارقام جوالات اود نقلها للتكست بوكس مفصولة بــ (,)
مثال
ليست بوكس
054565656
065265656
065546546
066456546
تنقل الى التكست بوكس
066456546,054565656,065265656,065546546
مع العلم اني استخدم الفجول بيسك 2008
وعليكم السلام ،،
كود :
Dim mobilenum As String = ""
For Each item In ListBox1.Items
mobilenum += item.ToString & ","
Next
TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)