用showtoolbar 隐藏后，如何判断这个时候的toolbar是隐藏状态？

布鲁斯　发表于：2014-12-05 10:51:02 　

如下：黄底的状态不会判断，查资料没查到
Private Sub Command2_Click()
DoCmd.ShowToolbar "ribbon", acToolbarYes
End Sub

Private Sub Command3_Click()
DoCmd.ShowToolbar "ribbon", acToolbarNo
End Sub

Private Sub Command4_Click()
If Me.Toolbar("ribbon") = False Then
DoCmd.ShowToolbar "ribbon", acToolbarYes
Else
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If

End Sub

Top

茼蒿发表于：2014-12-08 10:30:38

public i as string

Private Sub Command2_Click()

DoCmd.ShowToolbar "ribbon", acToolbarYes

i =1

End Sub

Private Sub Command3_Click()

DoCmd.ShowToolbar "ribbon", acToolbarNo

i=0

End Sub

Private Sub Command4_Click()
If i=0 Then
DoCmd.ShowToolbar "ribbon", acToolbarYes
Else
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If

Top

布鲁斯发表于：2015-01-23 10:47:42

If Application.CommandBars("ribbon").Visible = False Then
DoCmd.ShowToolbar "ribbon", acToolbarYes
Else
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If

研究出来的

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

用showtoolbar 隐藏后，如何判断这个时候的toolbar是隐藏状态？