منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس (/showthread.php?tid=8543)

الصفحات: 1 2

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - 3ssam - 23-04-13

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

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - 3ssam - 24-04-13

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

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - 3ssam - 27-04-13

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

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - ALBRNS - 27-04-13

السلام عليكم

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

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

بالتوفيق

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - الاصيله - 28-04-13

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

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - 3ssam - 28-04-13

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

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - الاصيله - 28-04-13

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

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - ALBRNS - 28-04-13

السلام عليكم

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

بالتوفيق

كيف يتم عرض ملف نص تكست من اللست بوكس داخل التكست بوكس - VB_Coder - 29-04-13

السلام عليكم

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

كود :
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 - 29-04-13

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