VB初心者質問スレPart2

>>691
なるほどね、簡単なのはDoEventsすることかな。
DoEventsはその命令の中でイベントを処理するから、無限ループに注意

長時間かかる処理->DoEvents->ボタンなどイベント
こんな感じで呼ばれる。


Private Flag as Long
Sub 長くかかる処理()
　　Flag = 0
　　Do
　　　　DoEvents
　　Loop Until Flag = 1
End Sub

Sub 中止ボタンなどイベント
　　Flag = 1
End Sub

俺なら、こんな感じでするかな。