C# と VB.NET の質問掲示板

■No79215 (ひろみ さん) に返信

timerは１つで処理した方がよいです。

Private _cnt As Integer = 0

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    _cnt += 1
    Select Case _cnt
        Case 1 To 20
           '--- Timer2想定の処理
        Case Else
           '--- TImer1想定の処理
           
           _cnt = 0
    End Select
End Sub

timer1イベントもtimer2イベントも同じUIスレッド上で動作するため、
同時には動作しません。（入れ子にできない）
表示させるためには、timer1イベントまたはtimer2イベントの終了させ、
その後の描画イベントを実行できる期間を作ってあげる必要があります。

やりたいことに合致していないかもしれませんが
下記貼っておきます。
※デバックしていません。

Public Class Form1
    Dim C1 As Integer
    Dim y As Integer

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Timer1.Interval = 30 * 1000
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        y = 0
        Timer2.Interval = 100
        If Timer2.Enabled = True Then
            'timer2動作中なら何もしない
        Else
            'timer2動作してないなら起動
            Timer2.Enabled = True
        End If
    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        If y = 200 Then
            '最終画像
            Timer2.Enabled = False
            PictureBox1.ImageLocation = "D:\pic\" & C1 & ".png"
        Else
            '演出
            PictureBox1.ImageLocation = "D:\pic\" & Strings.Right(y, 1) & ".png"
        End If
        y = y + 1
    End Sub
End Class