マウスポインタが移動したラベルを浮かび上がらせる
 MouseMoveイベントを利用して、マウスポインタが移動した先のラベルを
浮かび上がらせて、マウスポインタが離れると元に戻すように設定することが
できます。

 まず、ラベルのMouseMoveイベントで、オブジェクトの表示スタイルを設定する
SpecialEffectプロパティを使って、ラベルの上辺と左辺が強調表示され、下辺と
右辺に影が付けられるように設定します。

 フォームのMouseMoveイベントでは、SpecialEffectプロパティを使ってラベルが
平面的に表示されるように設定します。

 フォームにラベル「Label1」を配置して、次のイベントプロシージャを作成して
ください。

Private Sub Label1_MouseMove(ByVal Button As Integer, _
                             ByVal Shift As Integer, ByVal X As Single, _
                             ByVal Y As Single)
    
    Label1.SpecialEffect = 1

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, ByVal X As Single, _
                               ByVal Y As Single)
    
    Label1.SpecialEffect = 0

End Sub

Excel97/2000



戻る


Excel Word Access VBA! モーグ