0
我試圖列出一些東西,人們可以放在那裏就像購物清單,但我的程序無法訪問C:\驅動器,所以我決定把它放到資源文件夾中,但是那沒有工作的人有任何想法如何讓工作/ ??vb.net讀取和寫入文本文件裏面的資源
我的代碼:
Private Sub ThirteenButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThirteenButton14.Click
ListBox1.Items.Remove(ListBox1.SelectedItem)
Dim i As Integer
w = New IO.StreamWriter(My.Resources.FavoriteList)
For i = 0 To ListBox1.Items.Count - 1
w.WriteLine(ListBox1.Items.Item(i))
Next
w.Close()
ListBox1.Items.Clear()
R = New IO.StreamReader(My.Resources.FavoriteList)
While (R.Peek() > -1)
ListBox1.Items.Add(R.ReadLine)
End While
R.Close()
End Sub
Private Sub ThirteenButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThirteenButton13.Click
ListBox1.Items.Add(ThirteenTextBox6.Text + " | " + ThirteenTextBox7.Text)
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Dim i As Integer
w = New IO.StreamWriter(My.Resources.FavoriteList)
For i = 0 To ListBox1.Items.Count - 1
w.WriteLine(ListBox1.Items.Item(i))
Next
w.Close()
ListBox1.Items.Clear()
R = New IO.StreamReader(My.Resources.FavoriteList)
While (R.Peek() > -1)
ListBox1.Items.Add(R.ReadLine)
End While
R.Close()
End Sub
這對我來說沒有工作。 任何幫助都是合適的y =謝謝
你曾說過兩次「沒有工作」,但你沒有說出「沒有工作」的含義。它以什麼方式不起作用?你清楚地知道什麼是行不通的,因爲你在這裏張貼並說了這樣的話。爲什麼不在我們的帖子中分享這些信息?我們無法看到您的屏幕或閱讀您的想法。如果您希望我們幫助您,*請提供您已擁有的信息*,以便於您做到這一點。如果出現錯誤,請包含**確切的錯誤消息*。如果某些東西不起作用,請以何種方式解釋不起作用。 –