在Visual Basic中保留所选单选按钮

Question

我在使用后退按钮时如何保留所选单选按钮时遇到问题。

This is the page where I select the radio button.

这是上面的图像的代码。

Public Class General_Questions_1 
    Public Shared gen1_question5 As Integer 
      If (q5_rate_9.Checked) Then 
       gen1_question5 = 9 
      ElseIf (q5_rate_8.Checked) Then 
       gen1_question5 = 8 
      ElseIf (q5_rate_7.Checked) Then 
       gen1_question5 = 7 
      ElseIf (q5_rate_6.Checked) Then 
       gen1_question5 = 6 
      ElseIf (q5_rate_5.Checked) Then 
       gen1_question5 = 5 
      ElseIf (q5_rate_4.Checked) Then 
       gen1_question5 = 4 
      ElseIf (q5_rate_3.Checked) Then 
       gen1_question5 = 3 
      ElseIf (q5_rate_2.Checked) Then 
       gen1_question5 = 2 
      ElseIf (q5_rate_1.Checked) Then 
       gen1_question5 = 1 
      Else 
       gen1_question5 = 0 
      End If 

     End Sub 

     Private Sub general_button_Click(sender As Object, e As EventArgs) Handles general_button.Click 
      gen_question_1() 
      Learning_Effectiveness.Show() 
      Me.Close() 
      Me.Dispose() 
     End Sub 

     Private Sub back_Click(sender As Object, e As EventArgs) Handles back.Click 
      Me.Close() 
      Main_Objective.Show() 
     End Sub 
    End Class 

This is the next page of the first image.

这是上述的图像的代码。

Public Class Learning_Effectiveness 
    Public Shared le_question3 As Integer 
     If (q3_rate_9.Checked) Then 
      le_question3 = 9 
     ElseIf (q3_rate_8.Checked) Then 
      le_question3 = 8 
     ElseIf (q3_rate_7.Checked) Then 
      le_question3 = 7 
     ElseIf (q3_rate_6.Checked) Then 
      le_question3 = 6 
     ElseIf (q3_rate_5.Checked) Then 
      le_question3 = 5 
     ElseIf (q3_rate_4.Checked) Then 
      le_question3 = 4 
     ElseIf (q3_rate_3.Checked) Then 
      le_question3 = 3 
     ElseIf (q3_rate_2.Checked) Then 
      le_question3 = 2 
     ElseIf (q3_rate_1.Checked) Then 
      le_question3 = 1 
     Else 
      le_question3 = 0 
     End If 
    End Sub 
    Private Sub leraning_button_Click(sender As Object, e As EventArgs) Handles leraning_button.Click 
     le_question() 
     Training_Content.Show() 
     Me.Close() 
     Me.Dispose() 
    End Sub 

    Private Sub back_Click(sender As Object, e As EventArgs) Handles back.Click 
     Me.Close() 
     General_Questions_1.Show() 
    End Sub 

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click 

    End Sub 
End Class 

如果我在第二张图片，然后我按回按钮。我可以保留用户选择的单选按钮。

Answer 1

与其在您在表单中来回移动时关闭表单并处理它们，只是将它们隐藏起来并且不要处理它们。 不要忘记为Next和Back按钮执行此操作。

只有在所有表格完成并存储答案的值时关闭并全部处理它们。