标题: 请教各位高手,急急急! [打印本页]

---

作者: jiechen111    时间: 2006-5-28 13:40     标题: 请教各位高手,急急急!

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

---

作者: Nothing    时间: 2006-5-28 20:07

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

---

作者: netice    时间: 2006-5-29 22:55

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

---

作者: Nothing    时间: 2006-5-29 23:47

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

---

作者: 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

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0