【応用５のプログラム】

１．素材の作成

　　１９９９年９月６日〜９日まで、沖縄ゼミ旅行の際に撮影した静止画像を使用する。

　　所在：\\SKALA\教材提示ELEVATO\石山　謙\情報処理論\okinawa

　　　　　静止画像（ビットマップ）

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

（１）コマンドボタンを２つ配置する。

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

３．プロパティの設定

（１）コマンドボタン

（２）イメージ

イ．０．bmpの所在を探す（その１）

ロ．０．bmpの所在を探す（その２）

ハ．０．bmpの所在を探す（その３）

ニ．０．bmpの所在を探す（その４）

ホ．０．bmpの所在を探す（その５）

　　ファイルが見つかった！！

ヘ．０．bmpが表示されたところ

（３）フォーム

４．コードの記述

（１）コマンド１

（２）コマンド２

（３）プログラム全文

Dim i As Integer
Dim path As String

Private Sub Command1_Click()

　　　path = "\\SKALA\教材提示ELEVATO\石山　謙\情報処理論\okinawa\"

　　　i = i + 1

　　　If i = 31 Then End

　　　Select Case i
　　　Case 1
　　　　　　Image1.Picture = LoadPicture(path & "1.bmp")
　　　Case 2
　　　　　　Image1.Picture = LoadPicture(path & "2.bmp")
　　　Case 3
　　　　　　Image1.Picture = LoadPicture(path & "3.bmp")
　　　Case 4
　　　　　　Image1.Picture = LoadPicture(path & "4.bmp")
　　　Case 5
　　　　　　Image1.Picture = LoadPicture(path & "5.bmp")
　　　Case 6
　　　　　　Image1.Picture = LoadPicture(path & "6.bmp")
　　　Case 7
　　　　　　Image1.Picture = LoadPicture(path & "7.bmp")
　　　Case 8
　　　　　　Image1.Picture = LoadPicture(path & "8.bmp")
　　　Case 9
　　　　　　Image1.Picture = LoadPicture(path & "9.bmp")
　　　Case 10
　　　　　　Image1.Picture = LoadPicture(path & "10.bmp")
　　　Case 11
　　　　　　Image1.Picture = LoadPicture(path & "11.bmp")
　　　Case 12
　　　　　　Image1.Picture = LoadPicture(path & "12.bmp")
　　　Case 13
　　　　　　Image1.Picture = LoadPicture(path & "13.bmp")
　　　Case 14
　　　　　　Image1.Picture = LoadPicture(path & "14.bmp")
　　　Case 15
　　　　　　Image1.Picture = LoadPicture(path & "15.bmp")
　　　Case 16
　　　　　　Image1.Picture = LoadPicture(path & "16.bmp")
　　　Case 17
　　　　　　Image1.Picture = LoadPicture(path & "17.bmp")
　　　Case 18
　　　　　　Image1.Picture = LoadPicture(path & "18.bmp")
　　　Case 19
　　　　　　Image1.Picture = LoadPicture(path & "19.bmp")
　　　Case 20
　　　　　　Image1.Picture = LoadPicture(path & "20.bmp")
　　　Case 21
　　　　　　Image1.Picture = LoadPicture(path & "21.bmp")
　　　Case 22
　　　　　　Image1.Picture = LoadPicture(path & "22.bmp")
　　　Case 23
　　　　　　Image1.Picture = LoadPicture(path & "23.bmp")
　　　Case 24
　　　　　　Image1.Picture = LoadPicture(path & "24.bmp")
　　　Case 25
　　　　　　Image1.Picture = LoadPicture(path & "25.bmp")
　　　Case 26
　　　　　　Image1.Picture = LoadPicture(path & "26.bmp")
　　　Case 27
　　　　　　Image1.Picture = LoadPicture(path & "27.bmp")
　　　Case 28
　　　　　　Image1.Picture = LoadPicture(path & "28.bmp")
　　　Case 29
　　　　　　Image1.Picture = LoadPicture(path & "29.bmp")
　　　Case 30
　　　　　　Image1.Picture = LoadPicture(path & "30.bmp")
　　　End Select

End Sub

Private Sub Command2_Click()
　　　End
End Sub

５．実行

　ブルーのタイトルバーの右端の、最大化ボタン（３つの真ん中の四角）をクリックすること。

　プログラムで自動的に最大化できるが、まだ学習していないので、いまのところは手動で行う。

（１）羽田空港

（２）首里の守礼の門

（３）沖縄芸術大学

（４）琉球大学

（５）那覇市のホテル

６．保存

（１）フォーム

（２）プロジェクト