拡張子:txtvbswsfjsphpjavahtmlutf8sjis ' ウィンドウの背景色 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
' ウィンドウの背景色 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