■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#25245-0Do Loopを抜ける方法もろ2001-12-11(火) 09:41
     #25250-0RE#25245:Do Loopを抜ける方法よねKEN2001-12-11(火) 10:40
     #25252-0RE#25245:Do Loopを抜ける方法ZERRY2001-12-11(火) 10:42
     #25269-0RE#25252:Do Loopを抜ける方法Sourmash2001-12-11(火) 14:01
#25245-0
Do Loopを抜ける方法
こんにちは。

Do Loopで無限ループしている最中にコマンドボタンを押すと
無限ループを抜けるようにしたいのですが、どのようにやればいいのでしょうか?
よろしくお願いします。
#25250-0
RE#25245:Do Loopを抜ける方法
> Do Loopで無限ループしている最中にコマンドボタンを押すと
> 無限ループを抜けるようにしたいのですが、どのようにやればいいのでしょうか?
> よろしくお願いします。

DoEventsをループ中に入れておけば、
ループ中でも、イベントが発生しコマンドボタンのClickイベントの処理ができます。
後は、モジュールレベルでフラグを用意してやってそれで制御しましょう。
#25252-0
RE#25245:Do Loopを抜ける方法
> こんにちは。
> 
> Do Loopで無限ループしている最中にコマンドボタンを押すと
> 無限ループを抜けるようにしたいのですが、どのようにやればいいのでしょうか?
> よろしくお願いします。

Do Until(flgExit=True)
Loop

Command1_Clickで
flgExit=true
#25269-0
RE#25252:Do Loopを抜ける方法
> > こんにちは。
> > 
> > Do Loopで無限ループしている最中にコマンドボタンを押すと
> > 無限ループを抜けるようにしたいのですが、どのようにやればいいのでしょうか?
> > よろしくお願いします。
> 
> Do Until(flgExit=True)
> Loop
> 
> Command1_Clickで
> flgExit=true

やっぱり、DoEventsが無いと上手くいかないと思います。
サンプルです。
Dim flgExit As Boolean
Private Sub Command1_Click()
    flgExit = True
End Sub

Private Sub Form_Load()
    Form1.Show
    flgExit = False
    Do Until (flgExit = True)
        DoEvents
    Loop
    End
End Sub
このページと関連する記事:
#11114-0Do..Loopステートメント中のイベントについて1999-12-07(火) 17:03
#21053-0無限ループを抜ける方法2001-05-24(木) 15:57
#37364-0コマンドボタンイベント実行中の中止2001-01-19(金) 19:12
#138-1停止ボタンの作成2002-08-13(火) 11:47
#1481-1終了の方法1999-07-15(木) 23:29
#161-3ループ処理を抜ける処理について2003-04-30(水) 19:10
#45477-0DoEventsの使用方法について2001-07-31(火) 09:28
#18602-0無限ループを抜ける方法2001-02-09(金) 17:05
#19618-0ウエイトさせたい等2001-03-16(金) 00:15
#39281-0処理中のクラスをキャンセルボタンによって終了させるには2001-02-21(水) 16:47
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)