VB6 CallByName问题

Question

我想为某些Subs做一个CallByName，但我无法让它去。

一切顺利，直到执行到达CallByName，然后我遇到问题：

• 每当我使用Me时，都会抱怨编译错误
• 如果我使用frmMyServer，则说“对象或方法不受支持”

问题：我该怎么做？

这就是我所拥有的：

在我的'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调用模块中的方法，因为你需要一个对象。