Question

我还是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

Answer 1

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

在VS中构建并运行.NET项目时，它会将代码编译到项目下的子文件夹中（通常在Debug模式下为bin\Debug），并在那里复制所有相关的工件，例如文本文件-类似于将最终可执行文件部署到实际运行位置。在程序运行时，它将成为程序的根目录。

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

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

1 个答案: