[3ssam]

لسلام عليكم ورحمة الله وبركاتة
اجمل تحية مني لمشرفين واعضاء هذا المنتدى
اخواني عندي استفسار بسيط بخصوص رفع ملف نص من نوع تكست , على الفروم وظهر مساره في اللست بوكس كيف استطيع عمل زر امر واطلب منه عرض ملف التكست من اللست بوكس , داخل التكست بوكس
ارجوا التوضيح وشكرا

[abulayth]

السلام عليكم
اخي الكريم ارفق المثال لكي ييتم التعديل عليه

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

[3ssam]

هذا هو المثال اخي

[VB_Coder]

السلام عليكم

- إستخدم هذا الكود وضعه في الزر الذي يضع محتوى الملف في التكست بوكس :

كود :

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

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

   Dim F As Integer
  
   F = FreeFile
  
   Open Trim$(List1.Text) For Input As #F
   Text1.Text = Input$(LOF(F), F)
   Close #F

   Else

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

   End If

Else

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

End If

- تحياتي .

[3ssam]

اخي بارك الله فيك نعم هذا هو المطلوب بس انا اريد مثلا اضفت ملف تكست وبه لنفرض ارقام هكذا
456251
123458
456987
اريد ان يظهر بالتكست بوكس
456251
لوحده ومن ثم الرقم الثاني لوحده فقط
123458
وهكذا....

[الاصيله]

http://vb4arb.com/vb/uploaded/2508_01366480277.zip

[3ssam]

شكرا يا الاصيلة مثالك يستفاد منه ولكن ليس هذا طلبي اشكرك

[الاصيله]

هل تقصد ان يكون العرض متوالي في التيكست بضغطة زر واحده

[3ssam]

نعم وانا اقصد اضيف ملف تكست txt ويتم عرضه في التكست بوكس كل سطر لوحده , واللست بوكس تكون حامله مسار ملف التكست

[3ssam]

..................