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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعبئة الليست بوكس (/showthread.php?tid=28433)

تعبئة الليست بوكس - ابو روضة - 01-02-19

السلام عليكم اخوتى
اريد تعبئة الليست بوكس من ملف نصى موجود  داخل المشروع ليس من مسار بل داخل مجلد المشروع نفسه Debug
وجربت هذا ونفع  لكن انا اريده من مجلد المشروع

كود :
Dim r As IO.StreamReader
       r = New IO.StreamReader("c:\" & TextBox2.Text & ".txt")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()
وغيرته لهذا ولم يفلح 

كود :
 Dim r As IO.StreamReader
       r = New IO.StreamReader(Application.StartupPath & TextBox2.Text & ".txt")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()


وطبعا اريده بدون فتح الديالوج بأداه OpenFileDialog


RE: تعبئة الليست بوكس - asemshahen5 - 01-02-19

PHP كود :
r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt") 


RE: تعبئة الليست بوكس - ابو روضة - 01-02-19

(01-02-19, 10:34 PM)asemshahen5 كتب :
PHP كود :
r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt") 

جزاك الله كل خير أخى الكريم فعلا نجحت
لكن ممكن اعرف ما فائدة هذه "\"


RE: تعبئة الليست بوكس - حريف برمجة - 02-02-19

(01-02-19, 10:44 PM)ابو روضة كتب :
(01-02-19, 10:34 PM)asemshahen5 كتب :
PHP كود :
r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt") 

جزاك الله كل خير أخى الكريم فعلا نجحت
لكن ممكن اعرف ما فائدة هذه "\"

"\"
داخل مجلد الموجود في المسار .

لنفرض يوجد مجلد باسم Images
داخله مجلد باسم Image1
ونريد الوصول لملف داخل المجلد Image1


يكون المسار هكذا :


كود :
Application.StartupPath & "\Images\Image1\"


RE: تعبئة الليست بوكس - ابو روضة - 02-02-19

(02-02-19, 03:01 AM)حريف برمجة كتب :
(01-02-19, 10:44 PM)ابو روضة كتب :
(01-02-19, 10:34 PM)asemshahen5 كتب :
PHP كود :
r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt") 

جزاك الله كل خير أخى الكريم فعلا نجحت
لكن ممكن اعرف ما فائدة هذه "\"

"\"
داخل مجلد الموجود في المسار .

لنفرض يوجد مجلد باسم Images
داخله مجلد باسم Image1
ونريد الوصول لملف داخل المجلد Image1


يكون المسار هكذا :


كود :
Application.StartupPath & "\Images\Image1\"


جزاك الله كل الخير اخى وصلت المعلومة الحمدلله


RE: تعبئة الليست بوكس - حريف برمجة - 02-02-19

بالتوفيق للجميع