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]