VB6 CallByName woes

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調用方法，因爲你需要一個對象。