0

一部の 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
4

1 に答える 1

4

moduleでコードを呼び出しているため、インスタンスはありませんMe(フォームを含むクラスにのみ存在します)。私のVB6は少し錆びていますが、オブジェクトが必要なため、を使用してモジュール内のメソッドを呼び出すことはできないと思います.CallByName

于 2010-06-28T15:00:22.220 に答える