タイトル : Re: イベントが発生しないプログラム 投稿日 : 2011/09/14(Wed) 21:18 投稿者 : 魔界の仮面弁士
> 1.フラグがたったら たとえば、フラグを Boolean 変数で管理しているのであれば、それを Private mHoge As Boolean Public Property Get Hoge() As Boolean Hoge = mHoge End Property Public Property Let Hoge(ByVal newValue As Boolean) If mHoge <> newValue Then mHoge = newValue If newValue Then MsgBox "フラグが立った!" End If End If End Property のように、「プロパティ」へと昇格してしまえば、フラグ値が 特定の状態になったことを検証できるかと思います。 (上記は、Me.Hoge に True が代入された時にメッセージを表示しています) > 1.フラグがたったら > 2.カウンタが設定値に達したら フラグおよびカウンタの変数をプロパティにすることで値の変化を検知し、 その上で、そこから Bイベントを RaiseEvent すれば目的を達成できないでしょうか。 |