سوال لیست بوکس از vb6

[site-111]

با سلام

من یک لیست بوکس دارم ویک کامندبار که رویه کامند کلیک میکنم از آیتم به آیتم بعدی لیست بوکس میرود تا آخر ... و میخوام وقتی به آخر رسید باز از اول شروع کند تا آخر و به همین ترتیب ادامه دهد پروژه رو در پایین گذاشتم راهنمایی کنید .. ممنون...

لینک دانلود:
http://barnamenevis.org/forum/attachment.php?attachmentid=38896&d=1256442111

[xxxxx_xxxxx]

سلام،
کدهای Command1 رو به صورت زیر بنویسید:


Private Sub Command1_Click()
If List1.ListIndex <> List1.ListCount - 1 Then
List1.ListIndex = CurrentIndex + 1
Else
List1.ListIndex = 0
End If
End Sub

[site-111]

این یک مثال بود که با اعداد نشون داده بودم و کدی که شما دادی فقط واسه اعداد کار میکنه چطور کد رو تغییر بدم برای حرف مثلا : persian//iran//ariya//irani//

[xxxxx_xxxxx]

تنها چیزی که من به کد شما اضافه کردم قسمت else دستورات فوق بود.
ListIndex یک لیست باکس هیچ ارتباطی با محتوای لیست باکس نداره. تنها به شماره آیتم ها اشاره می کند.
میخواد تو لیست باکس عدد باشه یا حروف هیچ فرقی نمی کنه.

من که ListIndex رو صفر کردم منظور عدد صفری که شروع کننده آیتم ها هست نیست بلکه همون Index لیست هست که مشابه اشاره گر عمل عمل می کنه.

شما امتحان کنید.