我有一个连续的表单,我希望在单个记录级别有选择地启用或禁用按钮,据我所知这是不可能的。因此,我的解决方法是创建看起来像按钮的文本框,并使用条件格式使它们看起来启用或禁用。
但我陷入困境的是,我找不到与默认访问按钮相匹配的颜色代码(我可能还需要灰显文本的颜色代码,想一想)。
我尝试使用标准按钮的默认 BackColor,并且尝试了 SystemButtonFace 颜色,但它们都与实际按钮颜色不相近。
您无法更改 Access 中按钮的背景颜色。但有一个解决方法:使用标签代替。它还有一个 Click 事件,如果您将其
Special Effect
设置为 Raised
,它看起来像一个按钮。
您可以通过添加这些事件处理程序使其在单击时移动:
Private Sub MyLabel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.SpecialEffect = 2 'Sunken
End Sub
Private Sub MyLabel_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.SpecialEffect = 1 'Raised
End Sub