vb6 - 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因为你需要一个对象。