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

[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]

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