Question

我有一个sub（命名为“StartStop”），它可以从几个不同的按钮以及另一个表单中调用。所有表单都是默认实例，每次调用sub的方式相同：

“主要”表格上的按钮：

Call StartStop(Start.Text, "Server")

Call StartStop(Weekend.Text, "Server")

从问题表格：

           Select Case MessageParse(2)
                Case "Start"
                    Call Main.StartStop("Start", MessageParse(1))
                Case "Stop"
                    Call Main.StartStop("Pause", MessageParse(1))
                Case "Weekend"
                    Call Main.StartStop("Weekend", MessageParse(1))
                Case "Weekday"
                    Call Main.StartStop("Weekday", MessageParse(1))

我的问题是，从我的问题表单（名为“CommServer”），它调用sub并运行代码但不执行任何代码。我可以逐步完成它，看着它一行一行地运行而没有任何明显的变化。

如果我从第三个不相关的表单中以相同的方式调用它，为了测试，一切都与按钮的工作方式相同，这使我相信它是我的CommServer表单。这是来自被叫Sub：

的片段

Public Sub StartStop(ByVal Action As String, ByVal User As String)

    Select Case Action
        Case "Start"
            Countdown.Interval = 500
            TargetDT = DateTime.Now.Add(TimeLimit)
            Countdown.Start()
            GameUpdateTimer.Interval = GameSpeed * 1000
            GameUpdateTimer.Start()
            Start.Text = "Pause"
            Weekend.Enabled = True
            GameOn = True
            CommServer.xUpdate("StartStop" & "`" & "Start", True)
            CommServer.xUpdate("ChatMessage" & "`" & User & " Started The Game", True)

我可以单步执行sub，甚至可以看到它循环回到CommServer表单并在那里运行xUpdate Sub，除了没有任何反应。但是，如果我在该代码中删除了行MsgBox("Test")，它将生成一个消息框但忽略其他所有内容。

所以我的问题是，我应该在我的CommServer表单中寻找什么，而不执行代码会传递代码？我搜索了我的代码，找不到任何证据证明这些表单不是默认实例。

先谢谢，我希望这很简单！

VB - 调用Sub不适用于所有类

0 个答案: