منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

السلام عليكم

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

كود :

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

VB_Coder

مجاهد2010