イメージのイベント処理

イメージで用意されているイベントは以下の通りです。

イベント	発生条件
Click	マウスでクリック
DblClick	マウスで2 回クリック
MouseDown	マウスボタンを押す
MouseUp	マウスボタンを離す
MouseMove	マウスボタンを動かす
Error	コントロールでエラーが検出され、呼び出し元のプログラムにエラー情報を返せないとき
BeforeDragOver	ドラッグ アンド ドロップ操作の実行
BeforeDropOrPaste	データをオブジェクトにドロップしようとするか、または貼り付けようとする

例としてDblClickイベントを試してみます。

フォームのコードウィンドウを開いて次のように入力します。

Private Sub flowerImage_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    nameLabel.Caption = "Flower"
End Sub

最初に呼びだすマクロは次の通りです。

Sub テスト()
    Load sampleForm
    sampleForm.flowerImage.Picture = LoadPicture("c:¥tmp¥flower.jpg")
    sampleForm.nameLabel.Caption = ""
    sampleForm.Show
End Sub

表示されるフォームには「nameLabel」と言うラベルと「flowerImage」と言うイメージが1つずつ設置されています。

では上記のマクロを実行して下さい。次のように表示されます。

イメージをダブルクリックして下さい。ラベルに絵の名前が表示されます。

OfficePro