发新话题
打印

请教各位高手,急急急!

请教各位高手,急急急!

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

TOP

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

TOP

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

TOP

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

TOP

封装成自定控件可以重复利用,这点就是面向对象的好处。
鼠标移上在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
  认真做事只能把事做对,用心做事才能把事做好。

TOP

发新话题