送分100分：如何根据权限，动态的加载图标

VB6中，如何根据使用者的权限，动态的加载工具栏的图标。 if UPower=1 Then Toolbar1.Buttons(1).Image = 1 如果和imageList连用,代码为
if UPower=1 Then Toolbar1.Buttons(1).Image = imageList1.ListImages(2).Index
动态加载图标意义不大,不如动态加载工具栏按钮
if UPower=1 Then 
    Toolbar1.Buttons(1).Visible = true
    Toolbar1.Buttons(2).Visible = False
    ...
end if if 有权限 Then 
    Toolbar1.Buttons(1).Image = 1
else
    Toolbar1.Buttons(1).Image = 0
end if 不会是想按钮也要动态的吧？
Ls都可以

引用楼主 jiajipiao 的回复:

VB6中，如何根据使用者的权限，动态的加载工具栏的图标。

这个不难啊
使用if语句判断权限，再使用LoadPictrue载入不同的图片即可啊。
对于ToolBar可以考虑使用资源文件，这样使用LoadResPicture载入，管理更加方便。

Option Explicit

'imlToolbarIcons：ImageList控件

'tlbTools: ToolBar控件

Dim UserLevel As Integer    '用户等级

Private Sub Form_Load()

    UserLevel = 1

    With imlToolbarIcons

        .ListImages.Clear

        .ImageHeight = 16

        .ImageWidth = 16

        .ListImages.Add 1, "K1", LoadPicture("F:\0037.ico")

        .ListImages.Add 2, "K2", LoadPicture("F:\0038.ico")

        .ListImages.Add 3, "K3", LoadPicture("F:\0039.ico")

    End With

    With tlbTools

        .ImageList = imlToolbarIcons

        .Buttons(1).Image = UserLevel       '根据等级载入图片

        .Buttons("K2").Image = 2

        .Buttons("K3").Image = 3

    End With

End Sub

补充：VB ,  网络编程