ریختن داده های لیست باکس در تکست باکس به صورت نامحدود

[kazamie]

با سلام
من یک یوزرفرم طراحی کردم و می خواهم اطلاعاتی که در لیست باکس دوم اضافه می شوند با کاما از هم جدا شوند و به تکست باکس اضافه شوند خودم این کار را با کد نویسی طولانی و محدود انجام دادم ولی من کد کوتاه و نامحدود می خواهم

[Ali Parsaei]

سلام،
اين کد را مي تونيد استفاده کنيد:
فقط يک امتحان بفرماييد ممکن است وقتي TEXTBOX کلا" خالي شود ERROR بدهد، به هر حال کليت کد همين است اگر اشکال جزئي داشت خودتان برطرف بفرماييد.

Dim C As Integer
Dim D As Integer
C = ListBox2.ListCount
TextBox15 = ListBox2.List(0)
D = 1
Do While D < C
TextBox15 = TextBox15.Text & "," & ListBox2.List(D)
D = D + 1
Loop 

[kazamie]

سلام،
اين کد را مي تونيد استفاده کنيد:
فقط يک امتحان بفرماييد ممکن است وقتي TEXTBOX کلا" خالي شود ERROR بدهد، به هر حال کليت کد همين است اگر اشکال جزئي داشت خودتان برطرف بفرماييد.

Dim C As Integer
Dim D As Integer
C = ListBox2.ListCount
TextBox15 = ListBox2.List(0)
D = 1
Do While D < C
TextBox15 = TextBox15.Text & "," & ListBox2.List(D)
D = D + 1
Loop 

سلام ممنون از پاسخ شما
در فایل اعمال کردم اگر کسی می خواهد استفاده کند