03-09-17, 05:45 PM
سلام عليكم
عيد اضحي مبارك على الجميع
اريد كود جلب مستند نصي من
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