关于"在ImageList可以使用之前必须将它初始化"问题，带原程序。

Question

用vb做了个FTP客户端，遇到点问题。关于ImageList和TreeView的使用，
运行时候提示：“实时错误 在ImageList可以使用之前必须将它初始化”
不知道问题出在什么地方，希望老师们帮忙看下。Private Sub FillTreeViewControl(strParentKey As String)
    Dim nodX As Node
    Dim strImg As String
    Dim nCount As Integer, i As Integer
    Dim nAttr As Integer
    Dim strItem As String
    
    If EnumItemNameBag.Count = 0 And strParentKey = txtServer.Text Then
        Set nodX = TreeView1.Nodes.Add(, tvwFirst, txtServer.Text, txtServer.Text, "root") '此行提示错误。
        Exit Sub
    End If
    nCount = EnumItemAttributeBag.Count
    If nCount = 0 Then Exit Sub
    For i = 1 To nCount
        nAttr = EnumItemAttributeBag.Item(i)
        strItem = EnumItemNameBag(i)
        If nAttr = FILE_ATTRIBUTE_DIRECTORY Then
            strImg = "closed"
        Else
            strImg = "leaf"
        End If
        Set nodX = TreeView1.Nodes.Add(strParentKey, tvwChild, strParentKey & "/" & strItem, _
            strParentKey & "/" & strItem, strImg)
    Next
    nodX.EnsureVisible
End Sub

Answer 1

Set nodX = TreeView1.Nodes.Add(tvwFirst, txtServer.Text, txtServer.Text, "root") '此行提示错误。

Answer 2

直接改成Set nodX = TreeView1.Nodes.Add(,,  "root",txtServer.Text) 'root表示key

Answer 3

谢谢你，但是这样之后，又出现了新问题，调试还是没通过：
Private Sub FillTreeViewControl(strParentKey As String)
    Dim nodX As Node
    Dim strImg As String
    Dim nCount As Integer, i As Integer
    Dim nAttr As Integer
    Dim strItem As String
    
    If EnumItemNameBag.Count = 0 And strParentKey = txtServer.Text Then
        Set nodX = TreeView1.Nodes.Add(, , "root", txtServer.Text)
        Exit Sub
    End If
    nCount = EnumItemAttributeBag.Count
    If nCount = 0 Then Exit Sub
    For i = 1 To nCount
        nAttr = EnumItemAttributeBag.Item(i)
        strItem = EnumItemNameBag(i)
        If nAttr = FILE_ATTRIBUTE_DIRECTORY Then
            strImg = "closed"
        Else
            strImg = "leaf"
        End If
        Set nodX = TreeView1.Nodes.Add(strParentKey, tvwChild, strParentKey & "/" & strItem, _
            strParentKey & "/" & strItem, strImg)    Next
    nodX.EnsureVisible
End Sub
提示：实时错误 '35601' 未发现元素。

Answer 4

谢谢你，但是这样之后，又出现了新问题，调试还是没通过：
Private Sub FillTreeViewControl(strParentKey As String)
    Dim nodX As Node
    Dim strImg As String
    Dim nCount As Integer, i As Integer
    Dim nAttr As Integer
    Dim strItem As String
    
    If EnumItemNameBag.Count = 0 And strParentKey = txtServer.Text Then
        Set nodX = TreeView1.Nodes.Add(, , "root", txtServer.Text)
        Exit Sub
    End If
    nCount = EnumItemAttributeBag.Count
    If nCount = 0 Then Exit Sub
    For i = 1 To nCount
        nAttr = EnumItemAttributeBag.Item(i)
        strItem = EnumItemNameBag(i)
        If nAttr = FILE_ATTRIBUTE_DIRECTORY Then
            strImg = "closed"
        Else
            strImg = "leaf"
        End If
        Set nodX = TreeView1.Nodes.Add(strParentKey, tvwChild, strParentKey & "/" & strItem, _strParentKey & "/" & strItem, strImg)  '此句提示错误
    Next
    nodX.EnsureVisible
End Sub
提示：实时错误 '35601' 未发现元素。

Answer 5

谢谢你们，问题解决了，我发现我没有在treeview控件属性把“图像列表”设置成imagelist1