0

我一直在设置一个应用程序，该应用程序将从先前表单的输入中读取变量。

Public Sub frmGame_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim index As Integer
Dim index1 As Integer

    For index1 = 1 To 6
        For index = 1 To 11

            If index1 = 1 Then
                If index = 1 AndAlso index = frmPicks.pickOne Then
                    ptrTopOne.Image = ptrWarriorImage.Image
                    Dim topOne As New Warrior

在运行 if-then 比较之后（因为我有几个不同的类要基于变量数据），我基于这个 frmGame_Enter 子中的变量创建一个新类。类已完全设置，并且正在创建的类正在从中调用，没有问题。

但是，在我的 Hoverover 子程序中，找不到新的声明，说明：未声明“类”。由于其保护级别，它可能无法访问。

Private Sub ptrTopOne_MouseHover(sender As Object, e As EventArgs) Handles ptrTopOne.MouseHover
    If p1Turn = True Then
        If hoverOff = False Then
            HoverOver = 1
            If topOne.getMoveProperties() = 0 Then
                btnMoveBox.Hide()

无法读取 frmGame_Load 子中的新声明？

那么我的问题是：我如何能够在我的代码中声明我的新类，以便它在表单加载时声明，并且仍然可以使用比较？

如果这不够清楚，我会尽力澄清，非常抱歉。有几行代码，我只是参考了一下。感谢您的时间！

4

1 回答 1

0

我认为您的问题描述不正确。您似乎关心变量 topOne。这看起来像一个变量范围问题。topOne 仅存在于条件“If index = 1 AndAlso index = frmPicks.pickOne”中。一旦该条件关闭（如果结束），该变量就会消失。

如果您想在两个函数中使用它，则需要在表单级别声明它。

于 2020-01-21T15:48:54.190 回答