| 投稿日 | ： 2005/11/24(Thu) 11:09 |
| 投稿者 | ： つぼちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Label上にマウスのカーソルが来たときに下線を引きたい |
VB6です。
Label上にマウスのカーソルが来たときに下線を引き、
Label上からマウスのカーソルが離れたときに下線をなくしたいのですが、
前者はMouseMoveイベントでできるのですが、後者ができません。
VB.NetではMouseLeaveイベントでできるようですが。
ちなみに、以下のようにコードを書いたのですが、カーソルをLabel上から
遠ざける方向によって下線が消えなかったり、
近づける方向によって下線が惹かれなかったりします。
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= Label1.Left And X <= Label1.Left + Label1.Width And _
Y <= Label1.Top And Y >= Label1.Top - Label1.Height Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
このような処理をVB6でやるにはどうするのがいいのでしょうか？