VB工具栏设计.ppt

  1. 1、本文档共12页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB工具栏设计

/webnew/ 工 具 栏 VB提供了工具栏Toolbar控件,可以方便地为应用程序制作工具栏,为了使工具按钮更生动,VB还提供了图像列表ImageList控件,使用这两个控件可以制作出非常形象的应用程序工具栏。但这两个控件不是标准控件,使用之前要把它们添加到工具箱中,具体操作方法是: (1) 右键单击【工具箱】空白位置,选择弹出菜单中的【部件】命令,弹出【部件】对话框; (2) 在对话框的【控件】列表框中选择MicorSoft Windows Common Controls 6.0选项(使该选项前的复选框中出现对钩); (3)单击【确定】按钮。 此后,在工具箱中增加一组控件 设计工具栏的主要步骤是: (1) 将Toolbar和ImageList添加到窗体。Toolbar自动显示在窗体顶部,ImageList运行程序时不可见,它只是存放图标的数据库。 (2) 为ImageList添加所需图标。 (3) 创建Toolbar的按钮对象。 (4) 编写按钮对象的事件过程。 * 在创建ToolBar控件之前,应创建一个ImageList控件并添加你想要的图像。 ?ImageList控件 ImageList 控件包含 ListImage 对象的集合,该集合中的每个对象都可以通过其索引或关键字被引用。ImageList 控件不能独立使用,只是作为一个便于向其它控件提供图象的资料中心。如工具栏控件(ToolBar)中的图像就是从ImageList 控件中获取的。 * 为ImageList添加所需图标 把ImageList控件添加到窗体上,右单击该控件,从弹出的快捷菜单中选择【属性】,便打开【属性页】对话框. * 其中的“索引”和“关键字”(可选)属性用来引用每张图片。“关键字”属性是唯一的字符串,用来识别图片。使用“关键字”属性一般比使用“索引”要好,因为当插入或删除图片时,索引会发生改变而关键字不会改变。 * 为工具栏连接图片按钮 把Toolbar控件添加到窗体上,右单击该控件,从弹出的快捷菜单中选择【属性】,便打开Toolbar控件【属性页】对话框 。 通用卡设置 通用卡主要用于连接ImageList,从【图像列表】的下拉列表中选择ImageList控件 * 选择“按钮”标签,在“图像”一栏中设置。你可以用两种方法来把按钮与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

文档评论(0)

rovend + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档