VB工具栏的设计讲解.pptVIP

  1. 1、本文档共12页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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)

baobei + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档