我可以隐藏Slider Bar的ToolTipText吗？

Question

在VBA编程中,是否可以隐藏Slider Bar的ToolTipText？

下图显示了Microsoft Access数据库中表单上的滑块栏.我想在红色圆圈中隐藏ToolTipText.

我想这样做的原因是因为Slider Bar不能显示十进制值(例如:0,1),所以我想在缩放到十进制值后在滑块旁边的框中显示这些值.我知道如何做到这一点,但不知道如何隐藏仅显示整数值的Slider的ToolTipText.

Answer 1

没有简单的方法可以删除该指示器，因为它不通过控件本身暴露。

然而，有几个解决方案：

1. 子类化控件并拦截 Windows 消息

   不适合胆小的人，复杂且矫枉过正，但理论上您可以拦截 Windows 消息并删除与工具提示相对应的消息。
   这在 VBA 中根本不容易，我什至不会尝试。
   如果您想深入研究这一点，请查看KB278379中的示例

2. 只是显示其他东西。

   更有趣的是能够将显示的文本更改为其他内容：

   

   要更改文本，请处理Scroll事件并更新滑块的Text属性：

   Private Sub MySlider_Scroll()
       MySlider.Text = "Awesomeness: " & (MySlider.Value * 7.89)
   End Sub
   

   该事件从控件本身的属性中不可见，但如果您打开 IDE 并从控件列表中选择滑块，您将能够创建用于处理该事件的代码Scroll：