[مجاهد2010]

السلام عليكم ورحمة الله وبركاته

اخواني كيف اجعل سطور الليست بوكس تساوي التكست بالترتيب

يعني الان عندي في لليست بوكس ، الليست بوكس فيها سطور

1
2
3
4
5
علي سبيل المثال ، كيف اجعل التكست يساوي السطر الاول في الليست بعديه السطر الثاني بعديه السطر الثالث وهكذا الي ان تنتهي سطور الليست بوكس

اتمني يكون السؤال واضح واذا ما واضح اوضح اكثر
بارك الله فيكم انتظر الاجابة

[VB_Coder]

السلام عليكم

- أدرج أداة تايمر . ثم ضع هذا الكود :

كود :

Private Sub Timer1_Timer()

Static I As Integer

If List1.ListCount > 0 And I <= List1.ListCount - 1 Then
   Text1.Text = Trim$(List1.List(I))
   I = I + 1
Else
   I = 0
End If

End Sub

[مجاهد2010]

بارك الله فيك ، وجزاك الله خير
الكود يعمل بشكل جيد