ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
Microsoft Small Basic サンプルコード
日時: 2015/04/10 21:16
名前: lightbox



'  ウィンドウの背景色
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
メンテナンス


日時: 2015/04/10 21:16
名前: lightbox