初次用vb，问个简单问题：我写了个ActiveX DLL,在其中怎么用TreeView.谢谢!(做智能文档)

Question

(做智能文档)
Private Sub ISmartDocument_OnPaneUpdateComplete(ByVal Document As Object)
    Dim objXlCal2 As Excel.SmartTagAction
   
    Set objXlCal2 = Document.ActiveSheet.SmartTags(cgs).SmartTagActions("TreeView")
    
    If objXlCal2.PresentInPane Then        Set objTre = objXlCal2.ActiveXControl        objTre.LineStyle = tvwTreeLines        objTre.Style = tvwTreelinesPlusMinusPictureText
        
        Dim nodX As Node
                
        Set nodX = objTre.Nodes.Add(, , "001", "哈哈", 1, 2)
        objTre.Nodes.Add nodX.Index, tvwChild, "001001", "呵呵", 1, 2    End If
End Sub

Answer 1

引用TreeView控件，生成它的对象，和平常一样使用这个对象。