انتخاب آیتم های listview به ترتیب

[allaf2]

سلام.
من یه listview دارم با تعداد نامحدودی آیتم.

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

ممنون میشم کمکم کنید.
لطفا با کد منو راهنمائی کنید.

[Babak.Hassanpour]

بفرما دوست من



Dim i As Integer

Private Sub Command1_Click()
If i = List1.ListCount - 1 Then
i = 0
End If
MsgBox List1.List(i)
List1.Selected(i) = True
i = i + 1

End Sub

Private Sub Form_Load()
i = 0
For k = 0 To 10
List1.AddItem "item " & k
Next
End Sub

[allaf2]

سپاسگزارم :قلب:

k چه کاری انجام میده.
برنامه از k ایراد میگیره

[Babak.Hassanpour]

شما که لیستت از قبل پره لازم نیست این بخش رو داشته باشی.اونو گذاشتم 10 تا آیتم اول کاری به لیست اضافه شه.چون از قبل تعریف نشده ارور میده قبلش بنویس :
dim k as integer

[hrj1981]

با سلام
حال که سوالی در رابطه با Listview پرسیده شد ما هم سوال خود را همینجا بپرسیم، من وقتی بر روی یکی از آیتمهای لیست ویو کلیک می کنم می خواهم پیامی نمایش داده شود تا ایجا مشکلی نیست، وقتی پیام نمایش داده شد و آن را تایید یا کنسل می کنم آیتمی که برروی آن کلیک کرده ام به کرسر موس می چسبد و محیط نمایش را بهم می ریزد؟

[allaf2]

شما که لیستت از قبل پره لازم نیست این بخش رو داشته باشی.اونو گذاشتم 10 تا آیتم اول کاری به لیست اضافه شه.چون از قبل تعریف نشده ارور میده قبلش بنویس :
dim k as integer

بابك جان فكر ميكنم يه مشكلي هست. به نظر ميرسه كدي كه شما لطف كردي و نوشتي مربوط به ListBox هست.
من از ListView استفاده ميكنم. و چيزي به اسم .ListCount نداره.
فكر ميكنم بايد از listview1.ListItems استفاده بشه.

البته ببخشيد منو . من فوق العاده مبتدي هستم :خجالت:

[Babak.Hassanpour]

شرمنده اصلا دقت نکردم.آره جایگزینش اینه:
ListView1.ListItems.Count
بازم شرمنده.حواسم نبود

[allaf2]

شرمنده اصلا دقت نکردم.آره جایگزینش اینه:
ListView1.ListItems.Count
بازم شرمنده.حواسم نبود

فدات شم. مشكلم و حل كردي. خيلي گلي:بوس: