[3ssam]

اين الرد..........!

[3ssam]

وينكم يا جماعة!

[3ssam]

يرفع.........

[ALBRNS]

السلام عليكم

جرب كتابة الكود بالشكل التالي

PHP كود :

Private Sub Command1_Click()
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "txt |*.txt|"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
Else
List1.AddItem CommonDialog1.FileName
End If
Dim A As Integer
A = FreeFile
Open (List1.List(0)) For Input As #A
Text1.Text = Input$(LOF(A), A)
Close #A
End Sub 


ومن خصائص الــــ Text غير MultiLine الي True

بالتوفيق

[الاصيله]

السلام عليكم
ارجو ان يكون هذا طلبك
http://vb4arb.com/vb/uploaded/2508_01367103531.zip

[3ssam]

شكرا برنس واصيله بس كيف استطيع اجعل العرض بالتكست بوكس خانه خانه يعني سطر سطر مثل هيك
455689
طبعا بروح هالرقم وبيجي اللي بعده
325654 لوحده
وهكذا

[الاصيله]

السلام
هكذا
http://vb4arb.com/vb/uploaded/2508_01367177762.zip

[ALBRNS]

السلام عليكم

من خصائص الــــ Text غير MultiLine الي True

بالتوفيق

[VB_Coder]

السلام عليكم

- هذا كودي السابق بعد شوي تعديل . أضف لست بوكس ثانية لكي تحمل فيها محتوى الملف النصي لكي نأخذ سطر سطر ونظهره في التكست . وأضف تايمر لكي يظهر كل ثانية سطر من اللست بوكس الثانية :

كود :

Private Sub Command1_Click()

If Trim$(List1.Text) <> "" Then

   If Dir$(Trim$(List1.Text)) <> "" Then

      Dim F As Integer
      Dim CurrentLine As String
      
      List2.Clear
      
      F = FreeFile
  
      Open Trim$(List1.Text) For Input As #F
  
      While Not EOF(F)
  
            Line Input #F, CurrentLine
  
            If Trim$(CurrentLine) <> "" Then
               List2.AddItem Trim$(CurrentLine)
            End If
  
      Wend
  
      Close #F
      
      Timer1.Enabled = True
      
   Else

      MsgBox "الملف غير موجود"

   End If

Else

   MsgBox "حدد الملف في اللست بوكس"

End If

End Sub

Private Sub Timer1_Timer()

Static I As Integer

If List2.ListCount > 0 And I <= List2.ListCount - 1 Then
   Text1.Text = Trim$(List2.List(I))
   I = I + 1
Else
   I = 0
   Timer1.Enabled = False
End If

End Sub

[3ssam]

شكرا جزيلا اخي VB_Coder
نعم هذا هو المطلوب سلمت اناملك مشكووووووووور جدا جدا جدا الى مالا نهاية
وهي احلا اعجاب وتقييم لعيونك
والله يوفقك وزيدك من العلم
تحياتي وعجابي لك