انتقال 5 ایتم اخر لیستباکس به تکستباکس...

[niksalehi]

سلام دوستان، ما یه لیستباکس دارم که 20 تا ایتم داره، من میخوام 5تا ایتم آخرش رو به یه تکستباکس انتقال بدم، یعنی 5 ایتم زیری ( اونهایی که آخر ادد شدن...)! ممنون میشم راهنمایی کنید.

[Veteran]

multiline تکست رو true کنین
Private Sub Command1_Click()
For i = List1.ListCount - 1 To List1.ListCount - 5 Step -1
Text1 = Text1 & List1.List(i) & vbCrLf
Next
End Sub

[niksalehi]

ممنون مشکل حل شد، من اینارو مینوشتم اما step-1 رو نمینوشتم!
کارش چیه؟

[setroyd]

step کارش تعیین گامهای حلقه هست اینجا حلقه بجای زیاد کردن شروع به کم کردن کرده .
for a=0 to 10 step 2
print a
next
اینجا اعداد زوج رو میبینی چون step 2 هست 2 تا 2 تا میپره جلو امید وارم مطلب برات جا افتاده باشه .