设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 4413|回复: 11

[ActiveX] 怎样在Toolbar工栏上添加自已的按纽名称与图标上去

[复制链接]
发表于 2012-4-11 10:42:04 | 显示全部楼层 |阅读模式
在论坛上学习好多关于其它控件的用法,但怎样在Toolbar工栏上添加自已的按纽名称与图标上去?这个还在学习中,请老师请教一下!
发表于 2012-4-11 10:45:01 | 显示全部楼层
属性里视乎可以设置吧
 楼主| 发表于 2012-4-11 10:54:02 | 显示全部楼层
没有呢,就只有这个:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2012-4-11 14:55:25 | 显示全部楼层
本帖最后由 roych 于 2012-4-11 15:03 编辑
  1. Me.Toolbar0.ImageList = Me.ImgForTlBr.Object
  2. 'ImgForTlBr为ImageList控件,里面加载了相应的图片,如图所示:
  3. 'Add 方法,增加工具栏按钮功能,详见附图:
  4. Set btn = Me.Toolbar0.Buttons.Add(1, "Close", "关闭当前", tbrDefault, "Close")
  5.     btn.ToolTipText = "关闭当前"
  6.     btn.Description = btn.ToolTipText
  7. Set btn = Me.Toolbar0.Buttons.Add(2, "CloseAll", "关闭全部", tbrDefault, "CloseAll")
  8.     btn.ToolTipText = "关闭全部"
  9.     btn.Description = btn.ToolTipText
  10. Set btn = Me.Toolbar0.Buttons.Add(3, "Quit", "退出系统", tbrDefault, "Quit")
  11.     btn.ToolTipText = "退出"
  12.     btn.Description = btn.ToolTipText
  13. Set btn = Me.Toolbar0.Buttons.Add(4, "Help", "版权信息", tbrDefault, "Help")
  14.     btn.ToolTipText = "帮助"
  15.     btn.Description = btn.ToolTipText
复制代码
注意,里面的“Close”、“CloseAll"等等需要进一步写代码,否则是不会执行关闭功能的。




本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2012-4-11 15:31:08 | 显示全部楼层
还是不明白?有例子吗?
 楼主| 发表于 2012-4-11 15:36:29 | 显示全部楼层
代码是在代码编辑窗口中输入吗?我试了一下,还是不行?
 楼主| 发表于 2012-4-11 15:59:28 | 显示全部楼层
我的只有这个属性可以选

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2012-4-11 16:00:05 | 显示全部楼层
是什么问题?是不是控制件引用有问题?
发表于 2012-4-11 17:21:56 | 显示全部楼层
zhaozhuonayes 发表于 2012-4-11 15:31
还是不明白?有例子吗?

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

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

代码部分是放在窗体加载事件里的(Form_Load()),而且还得改成你的控件名称什么的。
 楼主| 发表于 2012-4-12 13:12:44 | 显示全部楼层
已经解决了!谢谢老师的帮助!学习了这个控制件的用法!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 10:38 , Processed in 0.096583 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表