ループ表示について (ID：110110)

名前

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

本文

まず表示したいイメージをプログラムと同じフォルダーに入れ
"1.jpg","2.jpg","3.jpg","4.jpg"とする(bmpでもOK)
フォームにImage1を貼り付けプロパティのindexを0とする
次にタイマーとコマンドボタンを貼り付ける
Option Explicit
Private Sub Form_Load()
    Dim n As Integer
    Image1(0).Visible = False
    Timer1.Enabled = False
    Timer1.Interval = 2000 '２秒にセット
    Command1.Caption = "Image Start"
    For n = 1 To 3: Load Image1(n): Next
    For n = 0 To 3
       Image1(n).Picture = LoadPicture(App.Path + "\" + CStr(n + 1) + ".jpg")
    Next
End Sub
Private Sub Command1_Click()
    Dim n As Integer
    If Timer1.Enabled = False Then
       Command1.Caption = "Image Stop"
       Timer1.Enabled = True
       Image1(0).Visible = True
       Command1.Caption = "Image Stop"
    Else
        Command1.Caption = "Image Strat"
        Timer1.Enabled = False
        For n = 0 To 3: Image1(n).Visible = False: Next
    End If
End Sub
Private Sub Timer1_Timer()
    Dim n As Integer
    For n = 0 To 3
        If Image1(n).Visible = True Then
           Image1(n).Visible = False
            If n < 3 Then
                Image1(n + 1).Visible = True
            Else
               Image1(0).Visible = True
            End If
            Exit For
        End If
    Next
End Sub
こんなところでひとつ。

←解決時は質問者本人がここをチェックしてください。

戻る