تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] كود اظهار السطر التالى فى ملف التيكست
#1
اريد كود لاظهار السطر التالى عن طريق زر

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

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

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

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

command2: (هى المشكله)
عند الضغط عليه يظهر السطر التالى من الملف النصى فى text1.text
يعنى كلما ضغطت على الزر ظهر السطر التالى (وهكذا)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله
استخدم 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
الرد }}}
تم الشكر بواسطة: abulayth
#3
(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

السلام عليكم

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

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة: xebrahimx
#4
إقتباس : السلام عليكم

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] التيكست بوكس Abdellah 2 389 18-11-23, 10:55 AM
آخر رد: Abdellah
  [vb6.0] اظهار الرصيد السابق في اول صف في Msflexgrid جلال اليمني 5 432 26-09-23, 04:24 AM
آخر رد: جلال اليمني
  استفسار اخوتي بخصوص التيكست بوكس او الليست بوكس عبدالمؤمن 2 474 27-11-22, 08:51 PM
آخر رد: عبدالمؤمن
  مشكلة اظهار المجموع في فاكتيف ريبورت hannileo 3 1,678 09-06-20, 06:19 PM
آخر رد: hannileo
  [vb6.0] المساعدة في اظهار التاريخ بطريقة من -- الى بالتقرير المعمول بالاكتف ريبورت وادي العوضي 3 1,746 19-10-19, 09:05 PM
آخر رد: حريف برمجة
  [vb6.0] المساعدة في اظهار الاصفار للوزن الفارغ والوزن المحمل بعد الفارزة في التقرير وادي العوضي 3 1,642 18-10-19, 10:23 AM
آخر رد: وادي العوضي
  [سؤال] كيف يتم اظهار عدد من التيكسات حسن الغزي 4 1,878 01-05-19, 03:14 PM
آخر رد: حسن الغزي
  [vb6.0] اظهار قمية من استعلام الى مربع نص في النموذج وادي العوضي 4 2,224 10-02-19, 01:58 PM
آخر رد: وادي العوضي
  اظهار انتهاء الصلاحية على mshflexgrid دهشوش1 7 2,479 14-12-18, 04:42 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] تحديد نهايه السطر في ملف نصي TXTFile alfasla 1 1,461 22-07-18, 08:13 PM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم