Vb.net 从一个窗体到另一个窗体读取的带objreader文件

Vb.net 从一个窗体到另一个窗体读取的带objreader文件,vb.net,visual-studio-2010,readline,multiple-forms,Vb.net,Visual Studio 2010,Readline,Multiple Forms,好的,我正在为一个作业做一个选择题问答游戏,我有一个表格,上面有类别和实际问题的列表。因为我对编码非常陌生,没有太多时间以我可能无法理解的方式完全重构代码,所以我没有将所有按钮添加到一个按钮“句柄”中,而是为每个单击事件创建一个子按钮。 这是其中一个SUB的示例: Public Sub btnMusic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMusic.Click

好的,我正在为一个作业做一个选择题问答游戏,我有一个表格,上面有类别和实际问题的列表。因为我对编码非常陌生,没有太多时间以我可能无法理解的方式完全重构代码,所以我没有将所有按钮添加到一个按钮“句柄”中,而是为每个单击事件创建一个子按钮。 这是其中一个SUB的示例:

    Public Sub btnMusic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMusic.Click
    Questions.Show()
    Me.Close()
    Dim objReader As New System.IO.StreamReader("Music.txt")
End Sub
我的文本按以下结构阅读:

    Structure QuizQ
    Dim Q As String
    Dim A As String
    Dim B As String
    Dim C As String
    Dim D As String
    Dim Correct As String
End Structure
然后,我试着按照以下结构阅读这些行:

            Dim I As Integer
        For I = 0 To 5
            MyQ(I).Q = objReader.ReadLine
            MyQ(I).A = objReader.ReadLine
            MyQ(I).B = objReader.ReadLine
            MyQ(I).C = objReader.ReadLine
            MyQ(I).D = objReader.ReadLine
            MyQ(I).Correct = objReader.ReadLine
        Next I
然后将所有按钮的文本设置为可能的答案,如下所示:

    lblQuestion.Text = MyQ(qNum).Q
    btnA.Text = MyQ(qNum).A
    btnB.Text = MyQ(qNum).B
    btnC.Text = MyQ(qNum).C
    BtnD.Text = MyQ(qNum).D
但此时,文本不会显示在按钮上或问题所在的位置。我真的不知道从这一点上我可以做什么,所以任何帮助真的将不胜感激


提前谢谢你

第三个和第四个代码块驻留在哪里?在表格里面?您需要显示完整的方法主体。