VB版OFFICE2007风格菜单控件示例 - 编程论坛

#2

f9865y2017-08-12 09:18

在自己的工程直接引用他的自制控件就可以了

#3

opelwang2017-08-12 13:05

回复 2楼 f9865y

麻烦上传一个引用的示例看看效果，谢谢。

#4

风吹过b2017-08-15 08:39

Public Function AddButton(zID As String, zSubCat As String, zCaption As String, zPicture As Integer, Optional zMore As Boolean = False, Optional zToolTip As String) As Boolean
你看一下函数的定义。

你再看一下你上传例子里的调用命令。图像ID: zPicture  ，全部传进去的是 6 。自然全部是一个图像。你换个ID就看得到效果了。
        .AddButton "ID_TAB_系统管理_挂号管理_病人挂号", "ID_TAB_系统管理_挂号管理", vbNewLine & "病人挂号", 6
        .AddButton "ID_TAB_系统管理_挂号管理_病人办卡", "ID_TAB_系统管理_挂号管理", vbNewLine & "病人办卡", 6

图标的来源：
        .ImageList = ImageList1

说明在你的窗体上，有一个控件： ImageList1
仔细找找，看看在哪里。

[此贴子已经被作者于2017-8-15 08:41编辑过]

#5

opelwang2017-08-18 07:22

回复 4楼风吹过b

感谢版主指点，图像更换了解了。

调用过程，如何实现呢？请指点，谢谢！

#6

风吹过b2017-08-18 09:17

这个控件，有几个事件返回。
你针对这些事件都写条提示看一下，看看返回一些啥内容。

然后根据返回的内容，写一块 select case ，进行调用你的过程吧。
慢慢调试，这个全靠你自己了。
与工具栏的影应过程写法一样的。