タイトル : 解決しました。 投稿日 : 2008/02/28(Thu) 20:23 投稿者 : tea
琴さん、よねKENさん、回答ありがとうございます。 手当たり次第試してみた結果、以下のようなコードの記述で一応希望の動作が可能 となりました。 Call TimeOutAddTopic(PlayerUniformNumber, bbTimeOutTopic, TopicParam1, TopicParam2) Public Function TimeOutAddTopic(ByVal PlayerUniformNumber As Long, _ ByVal bbTimeOutTopic As bbTopicType, _ ByVal TopicParam1 As Variant, _ ByVal TopicParam2 As Variant) TimeOutAddTopic = bbTimeOutTopic With mp .Parent.Journal.AddTopic .Parent.Quarter, .Parent.TimeOnQuarter, _ .TeamIndex, .TeamChar, PlayerUniformNumber, _ TimeOutAddTopic, TopicParam1, TopicParam2 End With End Function |