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

اريد كود لاظهار السطر التالى عن طريق زر

فلنفترض انى عندى
command1
command2
text1

command1:
يفتح comman dialog لاختيار ملف txt لعرضه فى text1.text

text1:
يعرض (السطر الاول) من ملف التيكست

(كل ما سبق لا مشكله فيه)

command2: (هى المشكله)
عند الضغط عليه يظهر السطر التالى من الملف النصى فى text1.text
يعنى كلما ضغطت على الزر ظهر السطر التالى (وهكذا)

السلام عليكم ورحمة الله
استخدم 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

كود :

On Error Resume Next

Dim a As Integer

a = List1.ListIndex

List1.Selected(0) = True

 List1.ListIndex = (a) + 1

ولعرض كل عنصر تلو الاخر فى text

كود :

On Error Resume Next

Dim a As Integer

a = List1.ListIndex

List1.Selected(0) = True

 List1.ListIndex = (a) + 1

(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

كود :

On Error Resume Next Dim a As Integer a = List1.ListIndex List1.Selected(0) = True List1.ListIndex = (a) + 1
ولعرض كل عنصر تلو الاخر فى text

كود :

On Error Resume Next Dim a As Integer a = List1.ListIndex List1.Selected(0) = True List1.ListIndex = (a) + 1

السلام عليكم

شرح رائع بارك الله فيك

يعطيك العافية

إقتباس : السلام عليكم

شرح رائع بارك الله فيك

يعطيك العافية

شكرا اخى جزاك الله خير

نرجو المساعدة فى هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=615

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

Etos

xebrahimx

abulayth

xebrahimx