منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] كود اظهار السطر التالى فى ملف التيكست - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [مثال] كود اظهار السطر التالى فى ملف التيكست (/showthread.php?tid=583)

كود اظهار السطر التالى فى ملف التيكست - Etos - 18-10-13

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

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

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

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

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

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

RE: كود اظهار السطر التالى فى ملف التيكست - xebrahimx - 20-10-13

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


RE: كود اظهار السطر التالى فى ملف التيكست - abulayth - 20-10-13

(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

السلام عليكم

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

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

RE: كود اظهار السطر التالى فى ملف التيكست - xebrahimx - 20-10-13

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

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

يعطيك العافية
شكرا اخى جزاك الله خير

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