タイトル : Re^5: マルチスレッドでスレッドを何度も実行する方法を教えてください 投稿日 : 2007/07/17(Tue) 13:58 投稿者 : ポン太
間違いがあり分かりにくい書き方になっているかと思いますので、 少し修正させてください。 Public A as Boolen Sub Download() ←別スレッドのプロシージャ For i = 0 to 1000 If CheckBox1.Checked = True then (ここに中止した場合の処理 Exit Forなど)End IF Data=wc.Download.data(a) Status=False Next End Sub Sub Button1_Click t.Start() Do Until Status = False Application.DoEvents() ・ ・その他の判断、処理CheckBox1のStatusで中止指示するなどTrue=中止) ・ Loop End Sub |