|
▼おぢちゃん さん:
こんにちは
Private Sub CbtStrt_Click()
MyDlg = True
Do Until MyDlg = False '*1
UserFrm.Show '*2
Loop '*3
End Sub
以前はモーダル表示だったわけですよね。
モーダル表示ということは *2 でUserFrmを表示したあと、UserFrm側で
Unloadするまでは、制御がもどってきません。
おそらくは、UserFrm側で、もうやめ、あるいは次の処理をする ということを
選択できるようになっていて、もうやめ の場合は Public変数のmyDlgをFalseにして戻る。
で、もどってきたCbtStrt_Clickで次のコードであるLoopを実行。すると、Do で myDlgが
FalseなのでLoopを抜ける。
こんな仕掛けだったんでしょうね。
ところが、もドレスだとShowによりUserFrmが表示された後、UserFrm側でmyDlgをFalseに
しないまま、すぐにCbtStrt_Clickに戻ります。でLoop -> Do ではmyDlgがFalseではないので
またもや UserFrm.Show 。
延々と、これを繰り返すわけです。
|
|