| 投稿日 | ： 2005/11/24(Thu) 12:03 |
| 投稿者 | ： つぼちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: Label上にマウスのカーソルが来たときに下線を引きたい |
ありがとうございます。
LabelはhWndプロパティがないようなので、テキストボックスでやります。
> > 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