| 投稿日 | ： 2005/11/24(Thu) 11:30 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： http://homepage1.nifty.com/rucio/main/technique/InputChk2.htm |
| タイトル | ： Re: Label上にマウスのカーソルが来たときに下線を引きたい |
> VB.NetではMouseLeaveイベントでできるようですが。
そうなんですか。当然そういうイベントを付けるべきですよね。
VB6ではSetCaptureとReleaseCaptureを使えばよいです。結構Webにサンプルが見られます。
(参考例)
Public Function MouseMove(CNT As MSForms.CommandButton, ByVal X As Single, ByVal Y As
Single)
With CNT
If X >= 0 And X < .Width And Y >= 0 And Y < .Height Then
.BackColor = vbYellow Or &HC0C0C0
SetCapture .hWnd
Else
.BackColor = &H8000000F
ReleaseCapture
End If
End With
End Function