منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

اخواني كيف يتم نقل ملف نصي الي الليست بوكس

يعني مثل هذا الكود بس هذا للتكست

كود :

Open App.Path & "\test.txt" For Input As #1

Text1.Text = Input(LOF(1), 1)

Close #1

جربته علي الليست بوكس ولم يعمل ارجو التعديل عليه

اعتذر يا شباب العنوان خطأ اقصد لليست بوكس وليس لليست فيو

اخواني والله محتاج الحل ضروري
ربنا يبارك فيكم ارجو الرد

[b]أخي عدل الكود للأتي ولكنه يجعل كل الأسطر سطر واحد:[/b]

كود :

Open App.Path & "\test.txt" For Input As #1

list1.additem  Input(LOF(1), 1)

Close #1

ولكني لا أعلم كيف تجعلها في أسطر

لا اخي انا جربت الكود من قبل وهو غير صحيح لا يقبل اصلا سواء سطر واحد او غيره
انا جربته ولم يعمل

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

عفو الكود صحيح ولكن كما قلت انت في سطر واحد
هل من حل ؟

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

أخي الكريم كنت أرجو أن تعرض لنا الكود لنستفيد جميعا.

عل العموم بعد جهد وجدت ذلك الكود وهو شغاال .

كود :

Private Sub Command1_Click()

Dim ff As Long

Dim line As String

ff = FreeFile

Open App.Path & "\test.txt" For Output As #ff

Do While Not EOF(ff)

 Line Input #ff, line

 If Len(line) Then List1.AddItem line

 Loop

Close #ff

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مجاهد2010

مجاهد2010

عبدالله الصافي

مجاهد2010

مجاهد2010

مجاهد2010

عبدالله الصافي