vb 怎么做工具栏就像vb的工具栏一样

需要添加toolbar和imagelist控件，工程-部件-microsoft windows common controls 6.0打钩-确定。

●设置toolbar与imagelist关联：右键单击toolbar1-属性-通用-图像列表-imagelist1；运行中设置用 Set Toolbar1.ImageList = ImageList1

●imagelist设置图标大小：右键单击imagelist1-属性-通用-16*16；运行中设置用ImageList1.ImageHeight = 16:ImageList1.ImageWidth = 16；

●imagelist插入图片：右键单击imagelist1-属性-图像-插入图片；运行中添加用 ImageList1.ListImages.Add 0,"key" , Picture1.Image 0为插入图片的索引，"key"为图片关键字，picture1.image为插入的图片。前两个参数可省略。

●toolbar添加按钮:右键单击toolbar1-属性-按钮-插入按钮；运行中添加用Toolbar1.Buttons.Add 1, "key", "caption", 0, 1 第一个1为按钮索引，"key" 为关键字，"caption"为按钮标题,0为样式值，后一个1指定按钮图标为imagelist1中的第一张图标。其参数全可省略。

●toolbar点击事件：可以通过判断Button.Key(按钮关键值)
Button.Caption（按钮标题）
Button.Image（按钮图标在imagelist中的位置）
Button.Index（按钮索引）来判断点击的是哪个按钮，写入代码。例如：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Caption = "caption" Then End&