求一个隐藏菜单栏的代码？

jia　发表于：2010-03-22 10:23:54 　

老师们好：

在作窗体时想用一个代码来隐藏菜单栏不知如何写？

请老师们指点。

谢谢

麥田发表于：2010-03-22 10:58:00

自定义菜单栏和工具栏的程序范例（新修改）

王老师的这个示例里面可以隐藏菜单栏

王樵民发表于：2010-03-22 10:58:01

　'隐藏自定义菜单“xtcd”
Application.CommandBars("xtcd").Visible = False '隐藏
Application.CommandBars("xtcd").Visible = True '可见

王樵民发表于：2010-03-22 11:42:12

Dim cbarOffice
'隐藏自定义菜单“系统菜单”
For Each cbar In CommandBars
If cbar.Name = "Menu Bar" Then
cbar.Enabled = False
End If
Next
--------------

Dim cbarOffice
'开放自定义菜单“系统菜单”
For Each cbar In CommandBars
If cbar.Name = "Menu Bar" Then
cbar.Enabled = True
End If
Next

王樵民发表于：2010-03-22 12:04:27

Dim cbarOffice
'隐藏“系统菜单”
For Each cbar In CommandBars
If cbar.Name = "Menu Bar" Then
cbar.Enabled = False
End If
Next
--------------

Dim cbarOffice
'开放“系统菜单”
For Each cbar In CommandBars
If cbar.Name = "Menu Bar" Then
cbar.Enabled = True
End If
Next

jia 发表于：2010-03-23 08:20:42

谢谢王老师的解答。

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

Access交流中心