انتقال اطلاعات از لیست به تکست باکس ها

[xrezax]

سلام دوستان
یک سوال مهم
من یک2 لیست باکس دارم و 30 تکست باکس می خوام وقتی روی یک کامند کلیک کنم برنامه بیاد از لیست اول 15تا کلمه رو یکی یکی برداره بریزه توی 15تا از تکست باکس ها. و از لیست دوم هم 15 تا کلمه ورداره بریزه توی 15 تا تکست باکس باقی مونده.
ممنون میشم با سورس توضیح بدین واسم

[pcdownload.bloghaa.com]

اولا که همه تکست باکس هات را پاک کن و به روسی که میگم 30 تا تکست باکس ایجاد کن.
یک تکست باکس بزار روی فرم و خاصیت Index اون را برابر 0 قرار بده.بعد همین تکست باکس را کپی کن و 29 بار paste کن روی فرم.
بعد هم کد زیر را برای کامند باتن بنویس :


For i = 0 To 14
text1(i).Text = List1.List(i)
text1(i + 15).Text = List2.List(i)
Next i

[xrezax]

مرسی از لطفت اما من میخوام کد نویسی کنم واسه تکست ها؛ پس باید 30تا تکست باشه؛ ممنون میشم ایدیتش کنی

[pcdownload.bloghaa.com]

مشکلی نیست.
فقط تکست باکس هایی که روی فرم گذاشتی باید با نام Text1 و Text2 و ... و Text30
بعد از کد زیر تو کامند باتن استفاده کن.


For i = 1 To 30
For j = 0 To Controls.Count - 1
If TypeName(Controls(j)) = "TextBox" And Controls(j).Name = "Text" + Trim(Str(i)) And i <= 15 Then
Controls(j).Text = List1.List(i - 1)
Exit For
ElseIf TypeName(Controls(j)) = "TextBox" And Controls(j).Name = "Text" + Trim(Str(i)) And i > 15 Then
Controls(j).Text = List1.List(i - 16)
Exit For
End If
Next j
Next i