Ms access 是否可以在MS Access 2007表单中的VBA for slider中启用MoveToPoint和SnapToTick？还有滑块默认值吗？

我在MSAccess2007中有一个表单，其中有一个滑块，但界面不是它所需要的。我使用ActiveX MS slider Control 6.0（SP4）插入了滑块

您可以单击并拖动鼠标，这样可以设置值。但您不能在记号附近单击以设置值。我的滑块从最小值1到最大值5。如果拇指位于1，我指向2并单击，拇指将跳到5

---

此外，每次打开表单时，我的拇指从1开始，对应于“强烈不同意”。我希望每次打开表单时拇指从3开始，这样用户就不会这样做。

将

LargeChange

设置为1，使单击每次仅移动1次
将

值设置为3以设置默认值，将滑块设置在中间

嗨，肖恩，非常感谢你的回答！！！价值属性正是我想要的，太棒了！！！改变大的改变很有帮助，但是因为它只是从一个滴答声移动到下一个滴答声，所以它不是我想要的。例如，如果拇指在1上，我单击4，拇指将移动到2。再次单击4，它将移动到3。我想要的是，当我点击4时，它会直接移动到4。使用VBA是否可能做到这一点？再次感谢肖恩！！！您唯一的机会就是使用
MouseDown
事件。请注意，Access不会在“属性”窗口中显示所有事件，但如果您进入VBA窗口，并在“代码”窗口上方的第一个下拉列表中转到滑块控件，则另一个下拉列表应显示控件支持的所有事件Shi Sean，谢谢！！由于某些原因，我今晚无法从家远程登录，所以我无法处理此问题，但我将在明天检查。再次感谢！！对不起，我想我今晚一定可以远程登录，因为我在离开之前已经注销了，但它仍然不起作用。明天我会带着这台笔记本电脑来解决这个问题。（不幸的是，本周我从来没有时间在工作中做这个项目）。你说得对，@Sean，MouseDown努力模拟SnapToTick效应。以下是我认为最终有效的方法。被5除是因为我的刻度值是1-5。x似乎取决于与滑块左边缘的距离。。。私有子滑块鼠标向下（ByVal按钮为整数，ByVal Shift为整数，ByVal x为长，ByVal y为长）Me.Slider.Value=x/（Me.Slider.Width/5）结束子滑块再次感谢Sean的帮助！！！我希望这能帮助其他使用Access 2007的人（如果现在还有人这样做，除了我的工作！）