سوالی در مورد لیست بوکس vb6

[site-111]

باسلام
سوال کمی حرفه ای دارم
راهنمایی کنید ممنون....

من یک لیست باکس دارم و 20 تکست باکس و در لیست باکس لیست را لود کردم و میخواهم رویه یک دکمه کلیک کنم و لیستی که در لیست باکس لود شده است بیست آیتم از لیست باکس به ترتیب بیایند در تکست باکس 1تا 20 بیایند و در کلیک بعدی بر رویه دکمه هم همینطور همین کار ادامه پیدا کند و لیستی که در لیست باکس لود شده است بیست آیتم اینبار از آیتم 21 تا 41 لیست باکس به ترتیب بیایند در تکست باکس 1 تا 20

[xxxxx_xxxxx]

TextBox هاتون رو Index گذاری کنید. بعد تو یک حلقه از 0 تا 19 از ابتدای لیست بخونید و آیتم ها رو به TextBox انتقال بدید. ListIndex رو ثابت نگه دارید تا دفعه بعد ادامه آیتم ها به TextBox ها منتقل شن.

[site-111]

لطفا اگه امکانش هست منو با یک تکه کد راهنمایی کنید.ممنون

[xxxxx_xxxxx]

بعد از اینکه TextBox ها رو ایندکس گذاری کردید. (فرض می کنیم از 0 تا 19) کدتون به این شکل میشه:


Dim cnt As Integer ' in General

Private Sub Form_Load()
For i = 1 To 100
List1.AddItem i
Next i
cnt = 0
End Sub

Private Sub Command1_Click()
For i = 0 To 19
Text1(i).Text = List1.List(cnt + i)
Next i
cnt = cnt + i
End Sub