|
Dim aImage As ListImage
''''设置图标的高度和宽度
ImageList1.ImageHeight = 24
ImageList1.ImageWidth = 24
''''往图像列表控件中添加图标(101、102、103、104为资源编号，下同)
Set aImage = ImageList1.ListImages.Add(, , objRes.LoadRes(101, vbResIcon))
Set aImage = ImageList1.ListImages.Add(, , objRes.LoadRes(102, vbResIcon))
Set aImage = ImageList1.ListImages.Add(, , objRes.LoadRes(103, vbResIcon))
Set aImage = ImageList1.ListImages.Add(, , objRes.LoadRes(104, vbResIcon))
''''与工具栏关联
Set Toolbar1.ImageList = ImageList1
''''添加工具栏按并设置图标
Dim aButton As Button
Set aButton = Toolbar1.Buttons.Add(, , "新建", , 1)
aButton.ToolTipText = "新建"
Set aButton = Toolbar1.Buttons.Add(, , "打开", , 2)
aButton.ToolTipText = "打开"
Set aButton = Toolbar1.Buttons.Add(, , "", tbrSeparator)
Set aButton = Toolbar1.Buttons.Add(, , "保存", , 3)
aButton.ToolTipText = "保存"
Set aButton = Toolbar1.Buttons.Add(, , "另存为", , 4)
aButton.ToolTipText = "另存为..."
''''设置工具栏其他属性
Toolbar1.Style = tbrFlat ''''以Flat形式显示
''''设置Image1控件属性
Image1.Stretch = True ''''图片自适应
''''将位图资源加载到Image1控件中（105为资源编号）
Set Image1.Picture = objRes.LoadRes(105, vbResBitmap)
''''释放资源
Set aImage = Nothing
Set aButton = Nothing
Set objRes = Nothing
End Sub
至此，大功告成，一起来欣赏一下我们的最终作品（图4）。
上一页 [1] [2]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
