VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/02/21(Fri) 14:41 |
| 投稿者 | ： mai |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: クラスモジュール |
> そういうときはイベントを使いましょう。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
回答ありがとうございました。
追加質問なんですが、フォームで Call文を書かずにクラスモジュールからCallするというのは
無理なんでしょうか？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）