- 1、本文档共12页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
工 具 栏 ;设计工具栏的主要步骤是:
(1) 将Toolbar和ImageList添加到窗体。Toolbar自动显示在窗体顶部,ImageList运行程序时不可见,它只是存放图标的数据库。
(2) 为ImageList添加所需图标。
(3) 创建Toolbar的按钮对象。
(4) 编写按钮对象的事件过程。 ;在创建ToolBar控件之前,应创建一个ImageList控件并添加你想要的图像。
?ImageList控件
ImageList 控件包含 ListImage 对象的集合,该集合中的每个对象都可以通过其索引或关键字被引用。ImageList 控件不能独立使用,只是作为一个便于向其它控件提供图象的资料中心。如工具栏控件(ToolBar)中的图像就是从ImageList 控件中获取的。;为ImageList添加所需图标
把ImageList控件添加到窗体上,右单击该控件,从弹出的快捷菜单中选择【属性】,便打开【属性页】对话框.
;其中的“索引”和“关键字”(可选)属性用来引用每张图片。“关键字”属性是唯一的字符串,用来识别图片。使用“关键字”属性一般比使用“索引”要好,因为当插入或删除图片时,索引会发生改变而关键字不会改变。 ;为工具栏连接图片按钮
把Toolbar控件添加到窗体上,右单击该控件,从弹出的快捷菜单中选择【属性】,便打开Toolbar控件【属性页】对话框 。;选择“按钮”标签,在“图像”一栏中设置。你可以用两种方法来把按钮与ImageList中的某个图片相连:把按钮的“图像”属性设置为图片的“索引”数或图片的“关键字”属性(注意“关键字”属性是区分大小写的)。 ; l 插入按钮:在工具栏添加一个按钮,每次单击【插入按钮】,系统在索引号指定的按钮之后插入一个按钮。
l 索引:工具栏中按钮的序号,索引号从1开始。每次单击【插入按钮】,系统在索引号指定的按钮之后插入一个按钮,并自动生成索引号, 在事件过程中可引用索引号。
l 关键字:可选项,按钮的名称,可在事件过程中引用。
l 图像:可以输入ImageList控件图标的序号(索引号),也可以输入ImageList控件图标的名称(关键字),代表在Toolbar的按钮中引用索引号或关键字指定的图标。
l 样式:按钮的形式,例如,普通按钮为0,开关按钮为1,分隔线按钮为3等。;关于“??式”的说明:
;响应ToolBar控件事件
ToolBar控件常用 的事件有两个:ButtonClick和ButtonMenuClick,前者对应按钮样式为0-2,后者对应样式为5的菜单按钮。
实际上,工具栏上的按钮是控件数组,单击工具栏上的按钮会发生ButtonClick事件和ButtonMenuClick事件,可以利用数组的索引(Index属性)或关键字(Key属性)来识别被单击的按钮,再使用Select Case语句完成代码编制。;(1)用索引Index确定按钮
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
……….
Case 2
……….
Case 3
……….
……….
End select
End sub
;(2)用关键字Key确定按钮
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case “New”
……….
Case “Open”
……….
Case “Save”
……….
……….
End select
End sub
文档评论(0)