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

[site-111]

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

[Apache66]

از این روش استفاده کن


Private Sub Command1_Click()
a = a + 1
List1.Selected(a) = True
End Sub

[site-111]

لطفا یک پروژه بدید ممنون

[parselearn]

Dim CurrentIndex As Integer

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

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

Private Sub List1_Click()
CurrentIndex = List1.ListIndex
End Sub