VB6 CallByName灾难

Question

我想为一些潜艇做一个CallByName，但我就是不能让它走。

在执行到达CallByName之前，一切都进行得很好，那么我就有问题了：

每当我使用

• 时，它都会抱怨编译错误
• ，如果我使用frmMyServer，它会说"object或method不支持“

。

问题:我该怎么做？

这就是我所拥有的：

在我的“modHandleData”

Private Sub HandleRequestScriptedNPC(...)
    ' ...
    NPCMethod = "Scripted_Npc_" & NpcNum
    CallByName Me, NPCMethod, VbMethod, NpcNum, Index
End Sub

在我的“modScriptedNPC”

Public Sub Scripted_Npc_9(ByVal NpcNum As Long, PlayerNum As Long)
    SendOneOptionMsg PlayerNum, "NPC 9", "NPC 9 talks." & vbCrLf & "Then gives you a clue"

End Sub

Answer 1

您正在调用模块中的代码，因此没有Me实例(只存在于类中，包括表单)。我的VB6有点生疏，但我相信不能在模块中使用CallByName调用方法，因为您需要一个对象。