<<< 返回 access911.net 编程静态资料库索引页

如何列出所有的系统菜单,中文菜单的对应英文名字是什么?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2005-3-11  浏览人次:3092


专题地址:http://access911.net/fixhtm/72FAB01E12DCEAF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何列出所有的系统菜单,中文菜单的对应英文名字是什么?《窗体》

 


问题:

如何列出所有的系统菜单,中文菜单的对应英文名字是什么?《窗体》

 


回答:

Private Sub ListAllMenu()
'本过程用于读取所有的系统菜单
    Dim a
    Dim b
    Dim p
    For Each a In CommandBars
        p = p & vbCrLf & vbCrLf & vbCrLf & _
            "《中文名》:" & a.namelocal & _
            "  《英文名》:" & a.Name & vbCrLf & _
            "---------------------"
        For Each b In a.Controls
            p = p & vbCrLf & b.Caption
        Next
    Next
    '将菜单明细保存在 TXT 文档中
    Dim fs
    Dim xx
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set xx =.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB01E12DCEAF3.htm

 


上一篇:个性化的access911.net(四)本站新增手机 WAP 站点

下一篇:EXCEL得到有宏的提示,但是我没写过类似代码

2017年2月22日生成静态资料