jiechen111 2006-5-28 13:40
请教各位高手,急急急!
请教各位高手：当鼠标移到label控件上时显示蓝色边框线，当鼠标离开label控件时蓝色边框线消失，在vb6.0中如何实现？
netice 2006-5-29 22:55
晕。。可以自己写LABEL控件吗？。。不可思意。。我建议你用IMAGE控件吧。。弄两张就可以了
qxl584 2006-7-29 09:55
封装成自定控件可以重复利用，这点就是面向对象的好处。
鼠标移上在VB6里本身有这个事件，怎么设置LABEL的字体样式就不说了。
鼠标离开在VB中可以用API函数：GetCursorPos和WindowFromPoint
在计时器事件里这样写
Private Sub Timer1_Timer()
'获取鼠位置
GetCursorPos MousePosition
’在当前鼠标位置查找控件名柄
HwndHoverWindow = WindowFromPoint(MousePosition.X, MousePosition.Y)
‘判断两个是否为同一控件
If label1.hwnd <> HwndHoverWindow Then
'离开
End If
End Sub