| |
▼かずや さん：
>返信ありがとうございます。
>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
>あと、これはどこにいれればいいのか教えてください
>これがないせいなのか、クリックはできるんですが止められません
最初の投稿のご質問は、ユーザーフォームのボタンのことですよね？
投稿コードは、全てユーザーフォームのモジュールに記述します。
こんな説明でわかっていただけますか？
|
|
ichinose
- 04/6/12(土) 22:43 -
