View Full Version : سوال: سوال لیست بوکس
site-111
شنبه 02 آبان 1388, 04:50 صبح
با سلام
من یک لیست بوکس دارم ویک کامند میخوام هر بار که رویه کامند کلیک میکنم از آیتم به آیتم بعدی لیست بوکس برود سلکت شوند تا آخر . راهنمایی کنید با پروژه ویبی .ممنون.:قلب:
Apache66
شنبه 02 آبان 1388, 11:58 صبح
از این روش استفاده کن
Private Sub Command1_Click()
a = a + 1
List1.Selected(a) = True
End Sub
site-111
یک شنبه 03 آبان 1388, 06:15 صبح
لطفا یک پروژه بدید ممنون
parselearn
یک شنبه 03 آبان 1388, 07:42 صبح
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.