|
▼かずや さん:
>返信ありがとうございます。
>DoEvents 初めて知りました。
>そこまではわかったのですが、
>Private loop_end As Booleanはどういう意味なのですか?
まず、コマンドボタン(Commandbutoon1)をクリックしたときに実行されるコード
>'==================================
>Private loop_end As Boolean
' ↑これは、下のループコードを制御するフラグとして宣言した変数です。
' プロシジャーの外で宣言した変数は、基本的には値が保持されます。
' 今回の場合、これは、ユーザーフォームのモジュールですから、
' ユーザーフォームがメモリ上から削除されるまでは保持されます。
' Commanbutton1をクリックすると、
' この値がFalseの間は、↓のコードDo while〜Loopの間のコードを繰り返します
>'==================================
>Private Sub CommandButton1_Click()
> loop_end = False
> Do While loop_end = False
> i = i + 1
> DoEvents 'これをループ中に入れておきます。これで・・、
>' 別のボタンをクリック可能にしておきます
> Loop
>End Sub
'↓これが別のボタン(Commandbutton2)をクリックしたときに
' 実行されるコードです。変数loop_end にTrueを設定しているだけです。
'
'よって、この↓のコードが実行されると、loop_end は、Trueになり、
'↑のコードのループを抜けると言うロジックです。
'
>'==================================
>Private Sub CommandButton2_Click()
> loop_end = True
>End Sub
>あと、これはどこにいれればいいのか教えてください
>これがないせいなのか、クリックはできるんですが止められません
最初の投稿のご質問は、ユーザーフォームのボタンのことですよね?
投稿コードは、全てユーザーフォームのモジュールに記述します。
こんな説明でわかっていただけますか?
|
|