Question

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

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子中的新声明？

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

如果这个不够明确，我会尽力澄清，非常抱歉。有几行代码，我只是需要一些参考。谢谢你的时间！

Answer 1

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

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

类错误：未声明类。由于其保护级别可能无法访问

1 个答案: