初次用vb,问个简单问题:我写了个ActiveX DLL,在其中怎么用TreeView.谢谢!(做智能文档)
bzlj 2005-02-25 05:26:15 (做智能文档)
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