如何模拟ToolTipText功能？

作者：绿色风分类：时间：2022-08-17 浏览：93

楼主
amulee

Q：如何模拟ToolTipText功能？
A：Excel的ActiveX控件不像VB中的控件那样具有ToolTipText属性，而在实际运用中当用户将鼠标移向某按钮时需要提示该按钮功能又该如何实现呢？方法如下（如本例中有一个名为查找的标签控件）：
1、在工作表中添加一个Label ActiveX控件，命名为Label1。
2、在该Label中添加所需要显示的提示信息。
3、在工作表代码中添加以下代码：

Private Sub 查找_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.Label1
.Left = 查找.Left + 查找.Width + 20
.Top = 查找.Top + 查找.Height + 20
If X < 0 Or Y < 0 Or X > 查找.Width - 3 Or Y > 查找.Height - 3 Then
.Visible = False
Else
.Visible = True
End If
End With
End Sub

模拟TooltipText功能.rar

2楼
水星钓鱼

不错，学习。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表