画面の待機 (ID:90595)

名前

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

本文 何がわからないか判らないので、全て書くと。 PictureBoxとTimerコントロールを一つフォームに貼り付けて、 Timer1.Interval = 1000とでもしておきます。 表示する画像をたとえば４枚用意し、アプリケーションと同じフォルダーに置きます。 画像ファイル名を、test1.bmp,test2.bmp,test3.bmp,test4.bmpとすると。 Private Sub Timer1_Timer() Static i As Integer i = i Mod 4 Picture1.Picture = LoadPicture(App.Path & "\test" & CStr(i + 1) & ".bmp") i = i + 1 End Sub