如何在鼠标悬停在宏按钮上时显示提示信息,点击则运行宏，离开宏按钮时提示信息消失？

环境所迫 · 发表于 2019-9-28 12:41

本帖最后由环境所迫于 2019-10-1 08:51 编辑

如何在鼠标悬停在宏按钮上时显示提示信息,点击则运行宏，离开宏按钮时提示信息消失？并能正常运行宏。[color=#999999 !important]

环境所迫 · 发表于 2019-9-28 13:44

别沉了下去呀

环境所迫 · 发表于 2019-9-29 09:02

今天继续求助

dongjuwen · 发表于 2019-9-29 11:30

本帖最后由 dongjuwen 于 2019-9-29 13:25 编辑

供参考…………

wowo000 · 发表于 2019-9-29 12:33

可惜，当鼠标离开两个小房子时不能隐藏提示内容，也就是当鼠标没移到任何一个小房子时，不显示任何提示内容。

dongjuwen · 发表于 2019-9-29 13:02

本帖最后由 dongjuwen 于 2019-9-29 13:07 编辑

wowo000 发表于 2019-9-29 12:33
可惜，当鼠标离开两个小房子时不能隐藏提示内容，也就是当鼠标没移到任何一个小房子时，不显示任何提示内容 ...

这个容易呢，判断x值在某个范围内显示，x值不在范围内隐藏

dongjuwen · 发表于 2019-9-29 13:16

Private Sub 上_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call myTips("上")
If X > 35 Or X < 2 Or Y > 40 Or Y < 2 Then
LblTips.Visible = False
End If
End Sub
X和Y是“房子”的宽度和高度。数值设置“房子”的边界值是多少

wowo000 · 发表于 2019-9-29 17:01

dongjuwen兄，可否看看此贴，至今没人解决。先谢了！
Excel 为何总有一个“出色”？-ExcelVBA程序开发-ExcelHome技术论坛 - http://club.excelhome.net/thread-1490780-1-1.html

dongjuwen · 发表于 2019-9-29 18:51

wowo000 发表于 2019-9-29 17:01
dongjuwen兄，可否看看此贴，至今没人解决。先谢了！
Excel 为何总有一个“出色”？-ExcelVBA程序开发-Exc ...

已在你原贴上传附件。增加一个空标签传递空值就可以。
也可以创建类，代码会减少很多。

wowo000 · 发表于 2019-9-30 06:28

dongjuwen兄，恳请你帮俺照你的意思弄个附件吧！

		自动登录	找回密码
密码			免费注册

[求助] 如何在鼠标悬停在宏按钮上时显示提示信息,点击则运行宏，离开宏按钮时提示信息消失？

评分