【イラストを扱うプログラム】

　あらかじめペイントを使ってイラストファイルを作っておき、ＶｉｓｕａｌＢａｓｉｃのプログラムでファイルを順次読み込み、左から歩いているように見せる。

　ポイントは

　Private Sub Timer1_Timer()
　　　Image1.Move Image1.Left + 20
　　　n = n + 1
　　　If n > 100 Then Timer1.Enabled = False
　　　m = m + 1
　　　If m > 2 Then m = 0
　　　If m = 0 Then Image1.Picture = LoadPicture(fName & "102.bmp")
　　　If m = 1 Then Image1.Picture = LoadPicture(fName & "101.bmp")
　　　If m = 2 Then Image1.Picture = LoadPicture(fName & "103.bmp")
　End Sub
　

　の部分である。

１．素材の作成

　　次のようなイラストを３つＢＭＰ形式で作成しておく。

１０１．ｂｍｐ

１０２．ｂｍｐ

１０３．ｂｍｐ

　　なお、"\\SKALA\教材提示ELEVATO\石山　謙\石山研究室(hyosiから開く)\"

　　の中にサンプルがあるので、今回はそれを使用する。

２．インターフェイスの作成

（１）イメージを１つ配置する。

（２）タイマーを１つ配置する。

３．プロパティの設定

４．コードの記述

［プログラム全文］

Dim m, n As Integer
Dim fName As String

Private Sub Form_Load()
　　fName = "f:\石山研究室(hyosiから開く)\"
　　'↑は実習では、
　　'"\\SKALA\教材提示ELEVATO\石山　謙\石山研究室(hyosiから開く)\"
　　'と記載する。
　　Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
　　Image1.Move Image1.Left + 20
　　n = n + 1
　　If n > 100 Then Timer1.Enabled = False
　　m = m + 1
　　If m > 2 Then m = 0
　　If m = 0 Then Image1.Picture = LoadPicture(fName & "102.bmp")
　　If m = 1 Then Image1.Picture = LoadPicture(fName & "101.bmp")
　　If m = 2 Then Image1.Picture = LoadPicture(fName & "103.bmp")
End Sub

５．実行

６．保存

　　フォーム、プロジェクトともに　ｉｌｌｕｓｔ　という名前で保存する。