此可视化基本程序的目标是存储文件中的输入,然后将其输出到标签中。它们应该一次显示一个值。我的想法是将值存储在索引中,但它很笨重,但它不起作用。
该程序有一个下一个和上一个按钮,用于增加和减少输出中索引的值。
这是我正在使用的代码。
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
答案 0 :(得分:0)
您的文件读取不是最佳选择。试试这个(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以确保不会超出数组大小。