+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (https://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (https://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيفية نقل ملف نصي الي لليست فيو (/showthread.php?tid=7184)
كيفية نقل ملف نصي الي لليست فيو - مجاهد2010 - 30-11-12
السلام عليكم ورحمة الله وبركاته
اخواني كيف يتم نقل ملف نصي الي الليست بوكس
يعني مثل هذا الكود بس هذا للتكست
جربته علي الليست بوكس ولم يعمل ارجو التعديل عليه
اعتذر يا شباب العنوان خطأ اقصد لليست بوكس وليس لليست فيو
اخواني كيف يتم نقل ملف نصي الي الليست بوكس
يعني مثل هذا الكود بس هذا للتكست
كود :
Open App.Path & "\test.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1جربته علي الليست بوكس ولم يعمل ارجو التعديل عليه
اعتذر يا شباب العنوان خطأ اقصد لليست بوكس وليس لليست فيو
كيفية نقل ملف نصي الي لليست فيو - مجاهد2010 - 30-11-12
اخواني والله محتاج الحل ضروري
ربنا يبارك فيكم ارجو الرد
ربنا يبارك فيكم ارجو الرد
كيفية نقل ملف نصي الي لليست فيو - عبدالله الصافي - 30-11-12
[b]أخي عدل الكود للأتي ولكنه يجعل كل الأسطر سطر واحد:[/b]
كود :
Open App.Path & "\test.txt" For Input As #1
list1.additem Input(LOF(1), 1)
Close #1ولكني لا أعلم كيف تجعلها في أسطر
كيفية نقل ملف نصي الي لليست فيو - مجاهد2010 - 30-11-12
لا اخي انا جربت الكود من قبل وهو غير صحيح لا يقبل اصلا سواء سطر واحد او غيره
انا جربته ولم يعمل
وكمان لو سطر واحد يبقا الليست بوكس ما ليه لازمة انا محتاجة كي يكون الاسطر تحت بعض زي الملف النصي
كيفية نقل ملف نصي الي لليست فيو - مجاهد2010 - 30-11-12
عفو الكود صحيح ولكن كما قلت انت في سطر واحد
هل من حل ؟
كيفية نقل ملف نصي الي لليست فيو - مجاهد2010 - 30-11-12
تم الحل اخواني وجد كود في موقع اجنبي
شكرآ لكم وادعو الله ان يجعل هذا الموقع نشط كالموقع السابق
كيفية نقل ملف نصي الي لليست فيو - عبدالله الصافي - 30-11-12
أخي الكريم كنت أرجو أن تعرض لنا الكود لنستفيد جميعا.
عل العموم بعد جهد وجدت ذلك الكود وهو شغاال .
كود :
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