用vba判断功能区的状态,在access 2007中可以用以下代码实现:
代码:
Function RibbonIsMinimised() As Boolean
Dim sngHeight As Single
sngHeight = Application.CommandBars('Ribbon').Height
CommandBars.ExecuteMso 'MinimizeRibbon'
DoEvents
RibbonIsMinimised = Application.CommandBars('Ribbon').Height > sngHeight
CommandBars.ExecuteMso 'MinimizeRibbon'
End Function
Sub Test()
If RibbonIsMinimised Then
MsgBox 'Minimised'
Else
MsgBox 'Maximised'
End If
End Sub
在access 2016、2013及2016中可以直接用CommandBars.GetPressedMso('MinimizeRibbon')来判断功能区的状态:
Sub 显示功能区状态()
If CommandBars.GetPressedMso('MinimizeRibbon') Then
MsgBox '功能区目前处于最小化状态。'
Else
MsgBox '功能区目前处于最大化状态。'
End If
End Sub
Access培训讲师
张志,2003年-2013连续10年获选微软最有价值专家,Access数据库培训讲师,十余年Access数据库培训经验,服务过的知名企业有北京奔驰、立达(中国)纺织仪器有限公司、中信泰富特钢集团等。
联系客服