انتقال اخرین آیتم لیست به ایندکس اول (حرکت انتقالی)

سلام بعد از چندسال
سریع سوال رو مطرح کنم خودم نوشتم اما اونطوری که خواستم عمل نمیکرد

یه لیست باکس داریم 6 تا توش ایتم داره
با هر بار کلیک روی باتن میخوم آخررین عنصر بیاد به اولین عنصر؛ همینطور حرکت انتقالی داشته باشه


سپاس

اقا نمیشه هرکاری میکنم
برعکسش میشه خودش اونچیزی که میخوام نمیشه

Dim temp As String

Dim i As Integer

Dim x As String





x = List1.ListCount - 1

temp = List1.List(0)





For i = 0 To x - 1

List1.List(i) = List1.List(i + 1)

Next i

List1.List(x) = temp

این اخری رو میندازه اولی من میخوام اولی رو بندازم اخری
یکی راهنمایی کنه اگه میخونه اینو میدونه

نقل قول:

---

نوشته شده توسط MohammadGh2011

سلام بعد از چندسال
سریع سوال رو مطرح کنم خودم نوشتم اما اونطوری که خواستم عمل نمیکرد

یه لیست باکس داریم 6 تا توش ایتم داره
با هر بار کلیک روی باتن میخوم آخررین عنصر بیاد به اولین عنصر؛ همینطور حرکت انتقالی داشته باشه


سپاس

---

Dim c As Integer

Dim temp As String

c = List1.ListCount - 1

temp = List1.List(c)

Do While c > 0

List1.List(c) = List1.List(c - 1)

c = c - 1

Loop

List1.List(0) = temp

خسته نباشید
تشکر از تالار متروکه

متروکه نیست؟ پر پر هم هست
سوال ها را تو انجمن درست جستوجو کنید ، می‌بینید قبلا پاسخ داده شده بود