تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اظهار التاريخ الهجري في البرنامج allobaed 5 96 29-11-16, 02:20 PM
آخر رد: allobaed
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 164 07-11-16, 06:16 AM
آخر رد: AL_BRNS
  اظهار الرقم في textعند اختيار الاسم من combobox haniblack 2 104 02-11-16, 08:31 AM
آخر رد: haniblack
  نسخ وعدم اظهار رسالة تأكيد استبدال فاضل الحمود 6 172 01-07-16, 09:34 PM
آخر رد: فاضل الحمود
  طريقة حساب العمليات الحسابية المكتوبة في التيكست بوكس tighrmte 6 462 20-02-16, 12:17 AM
آخر رد: tighrmte
  من لديه طريقة اظهار جدولين في اكيف ريبورت scsi7000 3 474 10-12-15, 03:51 AM
آخر رد: awidan76
  [vb6.0] اظهار المواعيد على الرزنامة ghias 20 2,074 15-08-15, 12:37 PM
آخر رد: الحزين اوى
  اظهار تقرير داتا ريبورت في الفورم الرئيسي مصمم هاوي 3 473 11-08-15, 11:09 PM
آخر رد: saadalkadhy
  طريقة اظهار نتيجة في اكتبف ريبورت من خلال بحث بالتاريخ من قاعدة بيانات اكسس 2007 scsi7000 9 1,249 21-06-15, 10:24 PM
آخر رد: Amir_alzubidy
  [vb6.0] ارجو مساعدتي في مشكلتي ، كيف يمكنني اظهار بيانات الكتاب كاملة المحدد في ال datagrid علي انور 1 644 08-06-15, 08:17 PM
آخر رد: KamelArab

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


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