VB.Net 保存按钮未将数据添加到文本文件

Question

我还是 VB.Net 的新手，已经坚持了一个多小时。我正在尝试创建一个库存管理系统，其中会打开一个表单供用户输入电脑规格，当我单击“保存”时将保存到文本文件，以便将其读入“库存跟踪器”屏幕。每个文本框都被禁用并在更新时附加文本。

目前没有发生任何事情，我已经在与项目相同的目录中创建了文本文件。为什么是这样？

我也试过在文本文件中放置一条测试消息以显示在跟踪器文本框中，这是我保存规格时会发生什么，但是没有消息出现？

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

Answer 1

您确定要查看正确的文件吗？

当您在 VS 中构建和运行一个 .NET 项目时，它会将代码编译到您项目下的一个子文件夹中（通常 bin\Debug 在您处于调试模式时）并复制那里所有相关的人工制品，例如文本文件 - 类似于如果您将最终可执行文件部署到它将真正运行的地方。在运行ning 期间，这将成为程序的根目录。

我希望它实际上是在更新该子目录中的文件副本，而不是在您的源代码所在的文件夹中。

VB.Net 保存按钮未将数据添加到文本文件

VB.Net Save button not adding data to text file

.net

vb.net

visual-studio-debugging