Código fuente de Vbtreeviewxml
= = = = = = = = = = = empezar con el inicio = = = = = = = = = = = = = = = = = =
5,00
object = " { 831 FDD 16-0C5C-11 D2-A9FC-0000 f 8754 da 1 } # 2.0 # 0 ";""
Inicia VB. Formulario Formulario 1
Caption = "Form1 "
ClientHeight = 3195
Cliente izquierdo = 60
ClientTop = 345
p>ClientWidth = 4680
LinkTopic = "Form1 "
ScaleHeight = 3195
Ancho de escala = 4680
StartUpPosition = 3 'Valores predeterminados de la ventana
Inicia VB. Botón de comando Comando 1
Caption = "Command1 "
Altura = 495
Izquierda = 1800
TabIndex = 1
Arriba = 1320
Ancho = 1215
Fin
Inicie MSComctlLib. TreeView TreeView1
Alto = 735
Izquierda = 960 grados
TabIndex = 0
Arriba = 720
Ancho = 1575
_ExtentX = 2778
_ExtentY = 1296
_Version = 393217
Sangría = 0
LabelEdit = 1
Estilo de línea = 1
Estilo = 7
Apariencia = 1
Fin
Fin
Atributo VB_Name = "Form1 "
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = False
Sub EnumNode (Nodo ByVal como nodo, ByVal Adjuntar como cadena)
La dimensión N es el nodo, I es la longitud
Depurar. Nodos de impresión. amp de texto" amp adjunto
Establecer N = Node.Children
Mantener hasta que N sea igual a cero
i = i 1
EnumNode N , Adjuntar y Derechos Humanos (64+)
Establecer N = N Siguiente
Lazo
Conector final
Comando privado 1_Clic. ()
EnumNode TreeView 1. Nodo(1), "A"
Conector final
Subform_Load privado()
Dim nodX como nodo
Establecer nodX = TreeView1.
Nodes.Add(,,"R","Root")
Establezca nodX = TreeView1. Nodes.Add("R",tvwChild,"C1","Child 1")
Establezca nodX = TreeView1. Nodes.Add("R",tvwChild,"C2","Child2")
Establezca nodX = TreeView1. Nodes.Add("R",tvwChild,"C3","Child3")
Establezca nodX = TreeView1. Nodes.Add("R",tvwChild,"C4","Child4")
Establezca nodX = TreeView1. Nodes.Add("C1",tvwChild,"C11","Child 11")
Establezca nodX = TreeView1. Nodes.Add("C1",tvwChild,"C12","Child 12")
Establezca nodX = TreeView1. Nodes.Add("C12",tvwChild,"C121","Child 121")
nodX. Asegúrate de que esté visible
Establece nodX = TreeView1. Nodes.Add("C1",tvwChild,"C13","Child 13")
Establezca nodX = TreeView1. Nodes.Add("C2",tvwChild,"C21","Child21")
Establezca nodX = TreeView1. nodos .Add("C2",tvwChild,"C22","Child 22")
nodX. Asegúrese de que esté visible
Conector final
Private Subform_Resize()
TreeView1. Mover 0, 0, ancho de escala, alto de escala
Conector final
========================= == ============
Parece que tanto 5.0 como 6.0 están disponibles. Los he probado todos.
Pero si desea usarlos por separado, no puede hacer referencia a los controles 5.0 y 6.0 en el proyecto al mismo tiempo, de lo contrario definitivamente ocurrirán problemas.