コメント |
@DIV
' ウィンドウの背景色
GraphicsWindow.BackgroundColor = "White"
' ウインドウの位置
GraphicsWindow.Left = 100
GraphicsWindow.Top = 40
' リサイズできないようにする
GraphicsWindow.CanResize = 0
' マウスクリックで画像を表示( 次の画像へ移動 )
GraphicsWindow.MouseDown = OnMouseDown
imageUrl[1] = "https://lh5.googleusercontent.com/-3IWAlBbUSYs/VLgFjekftnI/AAAAAAAAYKw/VM5FI7bYNzw/s640/142133580685821985693.jpeg"
imageUrl[2] = "https://lh6.googleusercontent.com/-tALKmEbX0IQ/VKV3I0wZqbI/AAAAAAAAYEM/YmqZbXiE5Fo/s640/142005544245221985225.jpeg"
imageUrl[3] = "https://lh3.googleusercontent.com/-LTU85BTVhHs/VRw8B6WDJiI/AAAAAAAAZZc/btN2b73BwIs/s640/49549385_p0.jpg"
imageUrl[4] = "https://lh3.googleusercontent.com/-_pJlbXZYoFQ/VQVVfUoA9GI/AAAAAAAAY2U/bK0gU378lRY/s900/maid2.jpg"
imageUrl[5] = "https://lh3.googleusercontent.com/-1y_K5k1Eg08/VGzdXcWR2hI/AAAAAAAAXvA/BZtcKVl1Az0/s640/1411047396359124.jpeg"
' カウンタ初期値
nCount = 0
' ******************************************
' グラフィックウインドウをマウスクリックした時の処理
' ******************************************
Sub OnMouseDown
nCount = nCount + 1
' 配列内の画像数を超えたら1に戻す
If nCount > Array.GetItemCount(imageUrl) Then
nCount = 1
EndIf
' sUrl 変数を使ったサブルーチンを呼び出す
sUrl = imageUrl[nCount]
LoadImage()
EndSub
' ******************************************
' グラフィックウインドウに画像を表示する
' 引数 : sUrl
' ******************************************
Sub LoadImage
pic = ImageList.LoadImage(sUrl)
width = ImageList.GetWidthOfImage(pic)
height = ImageList.GetHeightOfImage(pic)
GraphicsWindow.Width = width
GraphicsWindow.Height = height
GraphicsWindow.DrawResizedImage(pic, 0, 0, width, height)
EndSub
@END |