Question

此可视化基本程序的目标是存储文件中的输入，然后将其输出到标签中。它们应该一次显示一个值。我的想法是将值存储在索引中，但它很笨重，但它不起作用。

该程序有一个下一个和上一个按钮，用于增加和减少输出中索引的值。

这是我正在使用的代码。

    Public Sub FileModeButton_Click(sender As System.Object, e As System.EventArgs) Handles FileModeButton.Click

    Dim Result As DialogResult = OpenFileDialog.ShowDialog()

    If Result = DialogResult.Cancel Then
        Return
    End If

    FileOpen(1, OpenFileDialog.FileName, OpenMode.Input)

    Index = 1
    Do While Not EOF(1)
        'Need to keep more than one stored set of outputs.
        Input(1, FileOutput1)
        Input(1, FileOutput2)

        FileOut1(Index) = FileOutput1
        FileOut2(Index) = FileOutput2

        Index += 1
    Loop
    FileClose(1)

End Sub

     Private Sub ApplyButton_Click(sender As System.Object, e As System.EventArgs)         Handles ApplyButton.Click
    Index = 1

    If ModeComboBox.Text = "File" Then
        FileModeGroupBox.Enabled = True
        TextboxModeGroupBox.Enabled = False
        Output1Label.Text = FileOut1(Index)
        Output2Label.Text = FileOut2(Index)
    End If
    End Sub

Answer 1

您的文件读取不是最佳选择。试试这个（import system.IO）：

Dim readText() As String = File.ReadAllLines(OpenFileDialog.FileName);

然后你就可以了（此时readText必须是一个全局变量，索引也一样）：

Output1label.Text = readText(index)
Output2label.text = readText(index)

在“下一个”和“上一个”按钮上执行：

index = index+1 (on prev index-1)
Output1label.Text = readText(index)
Output2label.text = readText(index)

另外请不要忘记检查readText.Length以确保不会超出数组大小。

如何保存输入文件中的值以便以后在Visual Basic中使用？

1 个答案: