Timerイベントのフリーズ対策は？ (ID:125985)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちなみに >移動させている途中でタイマーイベントが開始されると現象が発生するといえば通じるでしょうか。 という現象は再現できませんでした。以下コードで確かめましたが、 ２回目以降のタイマーイベントの処理は１回目のイベント内のループ 処理が終了するまで実行されませんでした。 030 さんの書き込み通り >同じコードで試してみましたが特にフリーズする状態にはなりませんでした。 そういった意味でも原因を調べてもらわないといけませんね。 [VB6.0] Option Explicit Private LoopCount As Long Private Sub Command1_Click() Me.Timer1.Interval = 100 LoopCount = 0 End Sub Private Sub Command2_Click() Me.Timer1.Interval = 0 End Sub Private Sub Timer1_Timer() Dim I As Integer LoopCount = LoopCount + 1 Debug.Print LoopCount For I = 1 To 10000 DoEvents Me.List1.AddItem I Me.Label1.Caption = I Next End Sub