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

Question

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

Answer 1

if UPower=1 Then Toolbar1.Buttons(1).Image = 1

Answer 2

如果和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

Answer 3

if 有权限 Then 
    Toolbar1.Buttons(1).Image = 1
else
    Toolbar1.Buttons(1).Image = 0
end if

Answer 4

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

Answer 5

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