我可以隐藏Slider Bar的ToolTipText吗?

时间:2012-03-21 16:28:10

标签: ms-access vba

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

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

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

Slider Bar

1 个答案:

答案 0 :(得分:3)

没有简单的方法可以删除该指标,因为它没有通过控件本身显示。

但是,有几种解决方案:

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

    不是因为胆小的,复杂的和过度的,但理论上你可以截取Windows消息并删除与工具提示相对应的消息。
    这在VBA中根本不容易,我甚至都不会尝试 如果您想深入研究这个问题,请查看KB278379

  2. 中的示例
  3. 只需显示其他内容。

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

    Slider with custom text

    要更改文字,请处理Scroll事件并更新滑块的Text属性:

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

    从控件的属性本身看不到该事件,但是如果您打开IDE并从控件列表中选择Slider,您将能够创建用于处理Scroll事件的代码:

    Scroll Event handler