在VBA编程中,是否可以隐藏Slider Bar的ToolTipText?
下图显示了Microsoft Access数据库中表单上的滑块栏。我想在红色圆圈中隐藏ToolTipText。
我想这样做的原因是因为Slider Bar不能显示十进制值(例如:0,1),所以我希望在将它们缩放为十进制值后,在滑块旁边的框中显示这些值。我知道如何做到这一点,但不知道如何隐藏仅显示整数值的Slider的ToolTipText。
答案 0 :(得分:3)
没有简单的方法可以删除该指标,因为它没有通过控件本身显示。
但是,有几种解决方案:
对控件进行子类化并拦截Windows消息
不是因为胆小的,复杂的和过度的,但理论上你可以截取Windows消息并删除与工具提示相对应的消息。
这在VBA中根本不容易,我甚至都不会尝试
如果您想深入研究这个问题,请查看KB278379
只需显示其他内容。
更有趣的是能够将显示的文本更改为其他内容:
要更改文字,请处理Scroll
事件并更新滑块的Text
属性:
Private Sub MySlider_Scroll()
MySlider.Text = "Awesomeness: " & (MySlider.Value * 7.89)
End Sub
从控件的属性本身看不到该事件,但是如果您打开IDE并从控件列表中选择Slider,您将能够创建用于处理Scroll
事件的代码: