20-10-13, 05:26 PM
(20-10-13, 04:51 PM)xebrahimx كتب : السلام عليكم ورحمة الله
استخدم listbox اولا لعرض محتويات التكست كعناصر يمكن التنقل بينهم
كود :
Dim ff As Long
2 Dim line As String
3 ff = FreeFile
4 Open App.Path & "\list.txt" For Input As #ff
5 Do While Not EOF(ff)
6 Line Input #ff, line
7 'make sure we're not adding a blank line
8 If Len(line) Then List1.AddItem line
9 Loop
10 Close #ff
ثم
للتنقل بين عناصر listbox
ولعرض كل عنصر تلو الاخر فى textكود :
On Error Resume Next
Dim a As Integer
a = List1.ListIndex
List1.Selected(0) = True
List1.ListIndex = (a) + 1
كود :
On Error Resume Next
Dim a As Integer
a = List1.ListIndex
List1.Selected(0) = True
List1.ListIndex = (a) + 1
السلام عليكم
شرح رائع بارك الله فيك
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
