我是如何一步步打造自己的应用系统的

yclotus · 发表于 2007-5-17 09:23

看了一下，菜单程序有待进一步改进。。。

coolgaowen · 发表于 2007-5-17 09:45

不错....我想搞个..

narutoshyb · 发表于 2007-5-17 10:29

多谢楼主分享!

liujy · 发表于 2007-5-17 11:03

谢谢yuanzhuping斑竹分享!

mn164250 · 发表于 2007-5-17 15:53

我会就好了。。。我现在就是手工操作。。。

[em11]

渤海 · 发表于 2007-5-17 17:01

谢谢楼主的分享,程序编得真不错,什么时候我才能达到这个水平阿,有机会向您讨教一下,到时不要嫌俺烦啊.

hailong82090 · 发表于 2007-5-17 18:05

謝謝樓主。看來我還有好好學習，但是我的英文不好，可以寫VB程序嗎？

zbs112 · 发表于 2007-5-17 18:36

谢谢楼主提供这么好的学习资源！其中的多级菜单能不能用模块来调用呢？

改了以下的代码，就是通不过，还请帮忙修改，谢谢！

Public Sub ZidimgYiCaiDang() '自定义菜单模块
    Set XiTong = CommandBars("WorkSheet Menu Bar").Controls.Add
    With XiTong
        .Caption = "系统(&X)"
         Call MyMenu("保存(&S)", True, "BaoCun", 1975)
         Call MyMenu("备份(&C)", True, "SaveCopyAs", 271)
         Call MyMenu("退出(&X)", True, "TueiCu", 232)
        .BeginGroup = True
    End With
End Sub

Public Sub MyMenu(YCaption As String, YBeginGroup As String, YOnAction As String, YFaceId As String)
   Set MyCtrl = CommandBars("WorkSheet Menu Bar").Controls.Add
   With MyCtrl
       .Caption = YCaption
       .BeginGroup = YBeginGroup
       .OnAction = YOnAction
       .FaceId = YFaceId
   End With
End Sub

TB2ToQll.rar (10.34 KB, 下载次数: 125)

[此贴子已经被作者于2007-5-17 18:42:00编辑过]

ngnet888999 · 发表于 2007-5-17 22:03

不错, 有些代码刚好我能用,谢谢了.

星月无双 · 发表于 2007-5-17 23:02

好东西，十分感谢楼主分享

		自动登录	找回密码
密码			免费注册

[分享] 我是如何一步步打造自己的应用系统的