[英]VB.Net Save button not adding data to text file
我還是VB.Net的新手,已經堅持了一個多小時。 我正在嘗試創建一個庫存管理系統,在其中打開一個表單供用戶輸入PC規格,然后單擊“保存”將保存到文本文件,以便將其讀入“庫存跟蹤器”屏幕。 禁用每個文本框並在更新時附加文本的位置。
目前沒有任何反應,我已經在與項目相同的目錄中創建了文本文件。 為什么是這樣?
我還嘗試將測試消息放入文本文件以顯示在跟蹤器文本框中,這是在保存規格時會發生的情況,但是沒有消息出現?
frmItemEntry.vb
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Dim objMyStreamReader As System.IO.StreamReader
Dim objMyStreamWriter As System.IO.StreamWriter = System.IO.File.CreateText("inventory.txt")
Dim strInventory As String
objMyStreamWriter.WriteLine(txtManufacturerEntry)
objMyStreamWriter.WriteLine(txtProcessorEntry)
objMyStreamWriter.WriteLine(txtVideoEntry)
objMyStreamWriter.WriteLine(txtFormEntry)
objMyStreamWriter.WriteLine(txtRamEntry)
objMyStreamWriter.WriteLine(txtVramEntry)
objMyStreamWriter.WriteLine(txtHdEntry)
objMyStreamWriter.WriteLine(chkWirelessEntry)
objMyStreamWriter.Close()
Me.Close()
End Sub
frmTracker.vb
Private Sub txtManufacturer_TextChanged(sender As Object, e As EventArgs) Handles txtManufacturer.TextChanged
Dim streamReader As New System.IO.StreamReader("inventory.txt")
Dim strInventory As String
streamReader = System.IO.File.OpenText("inventory.txt")
strInventory = streamReader.ReadLine
txtManufacturer.AppendText(strInventory)
End Sub
您肯定在查看正確的文件嗎?
當您在VS中建立並執行.NET專案時,它會將程式碼編譯成專案下的子資料夾(通常是在Debug模式下為bin\\Debug
),並在此復制所有相關的物件,例如文字檔案-類似於將最終可執行文件部署到實際運行位置。 在程序運行時,它將成為程序的根目錄。
我希望它實際上是在該子目錄中而不是在源代碼所在的文件夾中更新文件的副本。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.