| 投稿日 | ： 2003/02/21(Fri) 11:16 |
| 投稿者 | ： よねＫＥＮ |
| Ｅメール | ： |
| ＵＲＬ | ： http://www5b.biglobe.ne.jp/~yone-ken/ |
| タイトル | ： Re: クラスモジュール |
> さっそく質問なんですが、クラスモジュールからフォームにcallしたいのですが
そういうときはイベントを使いましょう。Event、RaiseEvent、WithEventsキーワードを使います。
例えば、下記のような方法があります。
> -----クラスモジュール(Class1)------
Public Enum ResultStatus
Success
Failure
End Enum
Public Event Finish(ByVal status As ResultStatus)
Sub aaa()
RaiseEvent Finish(Success)
End Sub
> -----フォーム(Form1)-----
Private WithEvents Mo As Class1
Sub bbb()
Call Mo.aaa
End Sub
Private Sub Form_Load()
Set Mo = New Class1
End Sub
Private Sub Mo_Finish(ByVal status As ResultStatus)
Select Case status
Case Success
MsgBox "成功"
Case Failure
MsgBox "失敗"
Case Else
'ありえません。
End Select
End Sub