' [439.xls]



' [Module1] のコード
'★★☆　イメージを使ってボタンを作る　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

'Imageをクリックした時に発生するイベントです
Private Sub Image1_Click()

    Image1.SpecialEffect = fmSpecialEffectSunken
    MsgBox "ＯＫが押されました"
    Image1.SpecialEffect = fmSpecialEffectRaised

End Sub

'Image上をマウスカーソルが移動した時に連続して発生するイベントです
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    'Imageの表示スタイルを変化させます
    Image1.SpecialEffect = fmSpecialEffectRaised
    Label1.Caption = "マウスが ＯＫ の上にあります"
    Image2.SpecialEffect = fmSpecialEffectFlat

End Sub


Private Sub Image2_Click()

    Image2.SpecialEffect = fmSpecialEffectSunken
    MsgBox "ＮＯが押されました"
    Image2.SpecialEffect = fmSpecialEffectRaised

End Sub

Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    Image2.SpecialEffect = fmSpecialEffectRaised
    Label1.Caption = "マウスが ＮＯ の上にあります"
    Image1.SpecialEffect = fmSpecialEffectFlat
    
End Sub

Private Sub UserForm_Initialize()

    Image1.SpecialEffect = fmSpecialEffectFlat
    Image2.SpecialEffect = fmSpecialEffectFlat
    Label1.Caption = ""
    Me.Caption = "イメージを使ったボタンサンプル"

End Sub

'ユーザーフォーム上をマウスカーソルが移動した時に連続して発生するイベントです
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    Image1.SpecialEffect = fmSpecialEffectFlat
    Image2.SpecialEffect = fmSpecialEffectFlat
    Label1.Caption = ""
    
End Sub