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
|