编程论坛 → VB6论坛

悬浮框的问题

chen3bing 发布于 2020-02-24 16:10， 1306 次点击

只有本站会员才能查看附件，请登录

如图，别人做的界面。
我想仿作，可是不知道怎么做。
第一，如何让打开界面时两个listbox框第一行显示为蓝色？
第二，如何在鼠标经过每一行时显示一个悬浮框？
谢谢！

[此贴子已经被作者于2020-2-24 16:11编辑过]

4 回复

wmf20142020-02-25 09:56

Private Sub List1_Click()
List1.ToolTipText = List1
End Sub

chen3bing2020-02-25 10:19

谢谢！我的意思是鼠标从上方移动时出现，我改为
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.ToolTipText = List1
End Sub
可是不好使。

wmf20142020-02-25 10:22

只要设置了ToolTipText值，鼠标移过都会显示的，不需要响应MouseMove事件。大部分控件都有ToolTipText属性。

chen3bing2020-02-25 11:20

回复 4楼 wmf2014

感觉效果不太好，如果选中了一个，背景色变为蓝色，那么鼠标移过其他文本时，也是显示选中的那个，而且感觉很不灵活。