Office中国论坛/Access中国论坛

标题: 怎样在Toolbar工栏上添加自已的按纽名称与图标上去 [打印本页]

作者: zhaozhuonayes 时间: 2012-4-11 10:42
标题: 怎样在Toolbar工栏上添加自已的按纽名称与图标上去
在论坛上学习好多关于其它控件的用法，但怎样在Toolbar工栏上添加自已的按纽名称与图标上去？这个还在学习中，请老师请教一下！

作者: Henry D. Sy 时间: 2012-4-11 10:45
属性里视乎可以设置吧

作者: zhaozhuonayes 时间: 2012-4-11 10:54
没有呢，就只有这个：

作者: roych 时间: 2012-4-11 14:55
本帖最后由 roych 于 2012-4-11 15:03 编辑

Me.Toolbar0.ImageList = Me.ImgForTlBr.Object
'ImgForTlBr为ImageList控件，里面加载了相应的图片，如图所示：
'Add 方法，增加工具栏按钮功能，详见附图：
Set btn = Me.Toolbar0.Buttons.Add(1, "Close", "关闭当前", tbrDefault, "Close")
btn.ToolTipText = "关闭当前"
btn.Description = btn.ToolTipText
Set btn = Me.Toolbar0.Buttons.Add(2, "CloseAll", "关闭全部", tbrDefault, "CloseAll")
btn.ToolTipText = "关闭全部"
btn.Description = btn.ToolTipText
Set btn = Me.Toolbar0.Buttons.Add(3, "Quit", "退出系统", tbrDefault, "Quit")
btn.ToolTipText = "退出"
btn.Description = btn.ToolTipText
Set btn = Me.Toolbar0.Buttons.Add(4, "Help", "版权信息", tbrDefault, "Help")
btn.ToolTipText = "帮助"
btn.Description = btn.ToolTipText

复制代码

注意，里面的“Close”、“CloseAll"等等需要进一步写代码，否则是不会执行关闭功能的。

[attach]48965[/attach]

[attach]48963[/attach]

作者: zhaozhuonayes 时间: 2012-4-11 15:31
还是不明白？有例子吗？

作者: zhaozhuonayes 时间: 2012-4-11 15:36
代码是在代码编辑窗口中输入吗？我试了一下，还是不行？

作者: zhaozhuonayes 时间: 2012-4-11 15:59
我的只有这个属性可以选

作者: zhaozhuonayes 时间: 2012-4-11 16:00
是什么问题？是不是控制件引用有问题？

作者: roych 时间: 2012-4-11 17:21

zhaozhuonayes 发表于 2012-4-11 15:31
还是不明白？有例子吗？

在VBE界面输入的。详细请查看Kingkang的实例：
http://www.office-cn.net/thread-66634-1-1.html

代码是在代码编辑窗口中输入吗？我试了一下，还是不行？

代码部分是放在窗体加载事件里的（Form_Load()），而且还得改成你的控件名称什么的。

作者: zhaozhuonayes 时间: 2012-4-12 13:12
已经解决了！谢谢老师的帮助！学习了这个控制件的用法！

作者: wh133@163.com 时间: 2017-12-31 21:22
（toolbar）的例子

作者: 灰太郎 时间: 2018-1-1 18:10
q2qqqqqqqqqq

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)