Programación de estructura de árbol en Vb

¿Conoces la función de la radio?

Devuelve el valor clave seleccionado.

Sub sub_CheckOne(el nodo ByVal es MSComctlLib. nodo)

Si node. Marcado = Verdadero

Atenuar iA

Para iA = 1 a Obj_TreeView. Número de nodos

Si Obj_TreeView. Nodo(iA). Marcado

Si Obj_TreeView. Nodo(iA). Clave lt gtnode.key y luego

Nodo Obj_TreeView (iA). comprobado = false

Terminará si...

Entonces

Terminará si ...

Conector final