jiechen111

请教各位高手：当鼠标移到label控件上时显示蓝色边框线，当鼠标离开label控件时蓝色边框线消失，在vb6.0中如何实现？

Nothing

不可以实现，你自己写个label控件吧

netice

晕。。可以自己写LABEL控件吗？。。不可思意。。我建议你用IMAGE控件吧。。弄两张就可以了

Nothing

当然可以制作自定义控件的

qxl584

封装成自定控件可以重复利用，这点就是面向对象的好处。
鼠标移上在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