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

[MohammadGh2011]

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

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


سپاس

[MohammadGh2011]

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

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

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

[www.pc3enter.tk]

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