Cómo utilizar TreeView para ir a abrir otros libros

Saber utilizar un control TreeView para navegar por las carpetas y los archivos de libro abierto de Microsoft Excel le puede ahorrar tiempo cuando usted está buscando específicamente para los libros . Usted puede crear un proyecto de Microsoft Visual Basic.NET ( VB.NET ) para realizar esta tarea . VB.NET es un lenguaje de programación orientado a objetos utilizado para crear aplicaciones de Windows. Un control TreeView a menudo se utiliza para navegar a través de una estructura de carpetas. En unos pocos pasos , puede crear un proyecto VB.NET para buscar archivos de Excel y abrirlos con el control TreeView. Cosas que necesitará
Microsoft Visual Basic Express
Ver Más instrucciones
1

Inicie Microsoft Visual Basic Express , haga clic en "Nuevo proyecto ... " en el panel izquierdo de la pantalla y luego seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar".
2

doble clic en " TreeView " en el panel " Toolbox" para añadir un nuevo control TreeView. Haga doble clic en " Form1 " para abrir el módulo " Form1.vb " .
3

Escriba lo siguiente en " Form1_Load " para definir la ruta de origen para iniciar la búsqueda y para agregar el primer nodo :

frstNode Dim As New System.Windows.Forms.TreeNode ()

frstNode.ImageIndex = 0

frstNode.SelectedImageIndex = 0

frstNode . Texto = " G: \\ "

TreeView1.Nodes.Add ( frstNode )

4 Haga clic en " Form1.vb [ Diseño ] " y haga doble clic en el control " TreeView " . Escriba lo siguiente para agregar directorios y archivos para el control :

Dim obj As New Process

Texto = e.Node.Text

Si Directory.Exists ( e.Node . Texto ) = True Luego
GetFiles

( e.Node , e.Node.Text )

End If

Si File.Exists ( e.Node.Text ) = entonces verdad

obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus )

End If
5

Escriba lo siguiente en " Public Class Form1 " para crear un nuevo subprograma que buscar directorios y archivos :

GetFiles Private Sub ( ByVal pNode Como TreeNode , dirStr ByVal como secuencia)

myDir As Directorio

ICNT Dim As Integer

Para ICNT = 0 To ( myDir.GetDirectories ( dirStr ) Longitud . ) - 1

childNode Dim As New _

TreeNode ( myDir.GetDirectories ( dirStr ) ( Texto Integrado ) . ToString , 1 , 0 )

ICNT = pNode.Nodes.Add ( childNode )

Siguiente ICNT

Para ICNT = 0 To ( myDir.GetFiles ( dirStr , " * . xls ") Longitud ) - 1 .

childNode Dim As New _

TreeNode ( myDir.GetFiles ( dirStr , " * . xls ") ( ICNT ) ToString . 2 , 2 )

ICNT = pNode.Nodes.Add ( childNode )

Siguiente ICNT

pNode.Expand ()

End Sub
Página 6

Press "F5 " para ejecutar la subrutina haga clic en un archivo de Excel para abrirlo.