Я хочу сделать 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