[e-coder]

سلام عليكم

عيد اضحي مبارك على الجميع

اريد كود جلب مستند نصي من 

Resources

الي

Listbox

 انا جرب الكود التالي ولكن دون جدوي

ظهرت فية بعض الاخطاء

الكود هو

كود :

Dim FileToLoad As String = Global.Freezer_Room_By_Admin_Room.My.Resources.Resources.Banned

       'Open filestream
       Dim fs As FileStream = New FileStream(FileToLoad, FileMode.Open)

       'Open streamreader
       Dim sr As StreamReader = New StreamReader(fs)

       'Display contents of txt file in list box
       Do Until sr.EndOfStream

           ListBox1.Items.Add(sr.ReadLine())
       Loop


       'Close streamreader
       sr.Close()

       'Close filestream
       fs.Close()

       Dim i As Int16 = 0
       Dim test As String
       Try
           Do While 1 = 1
               test = ListBox1.Items(i).ToString
               i = i + 1
           Loop
       Catch
           
       End Try

[سعود]

هل تقصد محتويات ملف نصي موجود بالريسورس وتود ظهورها كقائمة؟

كود :

       ListBox1.Items.Add(My.Resources.sub7anallah)

هذا يجلب المحتوى لكن ليس كما هو مرتب بالملف النصي.

لكن التالي يرتبها كما هي بالملف النصي المصدر

كود :

       For Each h As String In My.Resources.sub7anallah.Split(vbNewLine)
           ListBox1.Items.Add(h)
       Next

[ابو روضة]

هل تقصد محتويات ملف نصي موجود بالريسورس وتود ظهورها كقائمة؟

كود :

       ListBox1.Items.Add(My.Resources.sub7anallah)

هذا يجلب المحتوى لكن ليس كما هو مرتب بالملف النصي.

لكن التالي يرتبها كما هي بالملف النصي المصدر

كود :

       For Each h As String In My.Resources.sub7anallah.Split(vbNewLine)
           ListBox1.Items.Add(h)
       Next

ماشاء الله عليك اخى سعود فنان

[سعود]

ماشاء الله عليك اخى سعود فنان

هذا ذوقك الطيب