为VB6开发环境制作的插件，添加自定义工具栏按钮，并设置自定义图标的例子

以下是为VB6开发环境制作插件，添加自定义工具栏按钮，并设置自定义图标的例子：

1. 打开VB6开发环境，创建一个新的ActiveX DLL项目。

2. 在“项目”菜单中，选择“组件”选项，然后单击“浏览”按钮。

3. 浏览到VB6的安装目录（例如：C:\Program Files (x86)\Microsoft Visual Studio\VB6），然后选择“VB6EXT.OLB”文件。

4. 选择“VBIDE”选项卡，然后选中“CommandBarControls”复选框。

5. 单击“确定”按钮，然后在“工具箱”窗口中找到“CommandBar”控件。

6. 将“CommandBar”控件拖放到“UserControl”表单上。

7. 在“代码”窗口中添加以下代码：

Private Sub UserControl_Initialize()
    Dim cmbBar As CommandBar
    Dim cmbButton As CommandBarButton
    
    Set cmbBar = Application.CommandBars.Add("MyToolBar", vbToolbarTop)
    Set cmbButton = cmbBar.Controls.Add(msoControlButton)
    
    With cmbButton
        .Caption = "My Button"
        .FaceId = 71
        .Style = msoButtonIconAndCaption
        .Tag = "MyButtonTag"
        .OnAction = "MyButton_Click"
    End With
End Sub

Public Sub MyButton_Click()
    MsgBox "Hello, world!"
End Sub

8. 在“工具箱”窗口中找到“ImageList”控件，将其拖放到“UserControl”表单上。

9. 在“属性”窗口中设置“ImageList”的“Images”属性为“3”。

10. 在“代码”窗口中添加以下代码：

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Set m_ImgList = PropBag.ReadProperty("ImageList", Nothing)
    If Not m_ImgList Is Nothing Then
        Set m_ImgList = PropertyPage.ToRuntimeCtrl(m_ImgList)
    End If
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    If Not m_ImgList Is Nothing Then
        PropBag.WritePropertyObject "ImageList", m_ImgList
    End If
End Sub

Public Property Set ImageList(ByVal vNewValue As ImageListCtl.ImageList)
    Set m_ImgList = vNewValue
End Property

Public Property Get ImageList() As ImageListCtl.ImageList
    Set ImageList = m_ImgList
End Property

11. 在“工具箱”窗口中找到“PictureBox”控件，将其拖放到“UserControl”表单上。

12. 在“属性”窗口中设置“PictureBox”的“AutoSize”属性为“False”，“Height”属性为“16”，“Width”属性为“16”。

13. 在“代码”窗口中添加以下代码：

Private m_ImgList As ImageListCtl.ImageList

Private Sub UserControl_Resize()
    If Not m_ImgList Is Nothing Then
        With m_ImgList
            Set .ListImages(3).Picture = .PictureFromHandle(.ImageHandles(3), 16, 16, vbTransparent)
            Set PictureBox1.Picture = .ListImages(3).Picture
        End With
    End If
End Sub

14. 在“项目”菜单中选择“属性”选项，然后在“组件”选项卡中设置“描述”和“版本”信息。

15. 在“文件”菜单中选择“保存ActiveX DLL”，然后编译项目。

16. 在VB6开发环境中打开VB6的Add-In Manager（在“工具”菜单中），然后单击“加载”按钮。

17. 浏览到刚才保存的ActiveX DLL文件，然后选择它。

18. 单击“确定”按钮，然后在VB6开发环境的工具栏上就会看到刚才添加的自定义按钮了。

以上就是为VB6开发环境制作插件，添加自定义工具栏按钮，并设置自定义图标的例子。