ImageList picturebox怎么添加啊

Question

???

Answer 1

ImageList picturebox?
________________________
不明白

Answer 2

With ils1
        .ListImages.Clear
        .ImageHeight = 16
        .ImageWidth = 16
        'hrm
        .ListImages.Add 1, "EMP", LoadResPicture("EMP", vbResIcon)
        'crm
        .ListImages.Add 2, "CUSTOMER", LoadResPicture("CUSTOMER", vbResIcon)
        'Knowledge
        .ListImages.Add 3, "KNOWLEDGE", LoadResPicture("KNOWLEDGE", vbResIcon)
        'net
        .ListImages.Add 4, "ENTIRENETWORK", LoadResPicture("NETHOOD", vbResIcon)
        'sys_setup
        .ListImages.Add 5, "MYCOMPUTER", LoadResPicture("MYCOMP", vbResIcon)
        'MyFlow
        .ListImages.Add 6, "MYFLOW", LoadResPicture("MYFLOW", vbResIcon)
        'Node
        .ListImages.Add 7, "SETTING", LoadResPicture("SETTING", vbResIcon)
        'Item
        .ListImages.Add 8, "ITEM", LoadResPicture("ITEM", vbResIcon)
    End With
    With tre
        .Nodes.Clear
        .ImageList = ils1
        .LineStyle = tvwTreeLines
        '失去焦点后不加亮显示
        .HideSelection = True
        '鼠标移到之上后,标题是否加亮显示
        .HotTracking = False
        '标签是否可被编辑
        .LabelEdit = tvwManual
        '鼠标类型
        .MousePointer = ccDefault
        '样式(带图片\+ - 号)
        .Style = tvwTreelinesPlusMinusPictureText
        '单击某节点时如有子节点是否自动打开子节点
        .SingleSel = False
        '选择某节点整年是否反黑
        .FullRowSelect = False
        
        Set mNode = .Nodes.Add()
        mNode.Text = "[" & LoadResString(601) & "]"
        mNode.key = "r0"
        mNode.Expanded = True
        mNode.Selected = False
        
        '取得模块下节点
        If MyMain.RightList(strNodes(), lngErrCode, 7) = False Then Exit Function
        '先加入所有模块
        If MyMain.RightList(strValues(), lngErrCode, 6) = False Then Exit Function
        
        'strValues(i, 0)模块ID
        'strValues(i, 1)字符串资源号
        For i = 1 To UBound(strValues, 1)
            Set mNode = tre.Nodes.Add("r0", tvwChild)
            mNode.key = "m" & strValues(i, 0)
            mNode.Text = SourceString(strValues(i, 1))
            mNode.Expanded = False
            mNode.Image = i
            For j = 1 To UBound(strNodes, 1)
                Set mNode = tre.Nodes.Add("m" & strValues(i, 0), tvwChild)
                mNode.key = "n" & strNodes(j, 0) & "/" & "m" & strValues(i, 0)
                mNode.Text = SourceString(strNodes(j, 1))
                mNode.Image = 7
                mNode.Expanded = False
            Next
        Next
    End With