vb.net - vb.net 我如何在 subs 中保留我的变量？

Question

单击 Button1 时如何保持变量正常工作？有人能帮我吗？

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Number As Integer
        Randomize()
        Number = Int(Rnd() * 10000000) + 1
        Label2.Text = Number
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = Number Then
            MsgBox("Correct")
        Else
            MsgBox("Not Correct")
        End If
    End Sub
End Class

标签： vb.net

Answer 1

获取您的变量并将其作为类变量移动。

Public Class Form2
    Private Number As Integer ' <-----

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Randomize()
        Number = Int(Rnd() * 10000000) + 1
        Label2.Text = Number
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = Number Then
            MsgBox("Correct")
        Else
            MsgBox("Not Correct")
        End If
    End Sub

End Class

以您的示例为例，这样做似乎是合理的，但我建议您不要养成这样做的习惯。我见过人们把几乎所有东西都作为类变量。

另外，将 Option Strict 设置为 On。随着您的程序变得更加复杂，它将在将来为您省去一些麻烦。