イベントの発生 (ID:87451)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 追記:RaiseEventの使用方法 'イベントを発行するクラスオブジェクトclsTeat '============================================ Public Event SendText(Byref rText as String) private sub SetText(Byred rText as String) RaiseEvent SendText(rText) End sub ============================================== 'イベントを受け取るフォームモジュール '============================================== Private WithEvents mTest as clsTest '① Private Sub mTest_SendText(Byref rText as String) Call MsgBox(rText) End Sub '============================================== ①どこかに Set mTest = New clsTest を追加すること。 イベントを発行するオブジェクトへの参照を格納する場合は、WithEvents を忘れずに。