- 620 名前：591 mailto:sage [04/08/26 00:26]
- どうも、>>591です。
今日は同僚の目を盗んでVSのヘルプやらWeb上の文書をあさってみましたが、結局DoEvents()関連についてはうやむやのまま
せっかく.NETに移行したことだし(2ヶ月前までExcelのVBAマクロしか書いたことなかった)
スレッドとやらを使ってみようかとトライしてみました。
で、試行錯誤した末、以下のような感じのコードになりました。
Imports System
Imports System.Threading
Public Class Form1
・・・
Private Sub DoLoopThread()
'元Button1のクリックイベントにあった処理から、Application.DoEvents()を取っ払ったもの
End Sub
Private MyThread As New Thread(AddressOf DoLoopThread)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MyThread.start()
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
MyThread.Abort()
End Sub
End Class
これで何とか”ループ処理中に「X」をクリックするとエラーが出る”問題は回避できるようになりました。
|
 |
