Saper utilizzare un controllo TreeView per navigare tra le cartelle e aprire i file delle cartelle di lavoro di Microsoft Excel consente di risparmiare tempo quando si sta cercando specificamente per le cartelle di lavoro . È possibile creare un progetto di Microsoft Visual Basic.NET ( VB.NET ) per eseguire questa operazione . VB.NET è un linguaggio di programmazione orientato agli oggetti utilizzati per creare applicazioni Windows . Un controllo TreeView viene spesso utilizzato per navigare attraverso una struttura di cartelle . In pochi passi , è possibile creare un progetto VB.NET per cercare i file di Excel e aprirli con il controllo TreeView . Cose che ti serviranno
Microsoft Visual Basic Express
Mostra più istruzioni
1

Avviare Microsoft Visual Basic Express , fare clic su " Nuovo progetto ... " nel riquadro sinistro dello schermo , quindi selezionare " Applicazione Windows Form ". Fare clic su "OK".

2 Fare doppio clic su " TreeView " nel riquadro " Casella degli strumenti " per aggiungere un nuovo controllo TreeView . Fare doppio clic su " Form1 " per aprire il modulo " Form1.vb " .
3

Digitare il seguente sotto " Form1 Load " per definire il percorso di origine per iniziare la ricerca e per aggiungere il primo nodo :

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

frstNode.ImageIndex = 0

frstNode.SelectedImageIndex = 0

frstNode . text = " G : \\ "

TreeView1.Nodes.Add ( frstNode ) economici 4

Click " Form1.vb [Design] " e fare doppio clic sul controllo " TreeView " . Digitare quanto segue per aggiungere directory e file al controllo :

Dim obj As New Process

Text = e.Node.Text

Directory.Exists ( e.Node . Text ) = True Then

getfiles ( e.Node , e.Node.Text ) per

End If

File.Exists ( e.Node.Text ) = true Then

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

End If
5

Digitare il seguente sotto " Public Class Form1 " al creare una nuova subroutine che cercherà directory e file :

getfiles private Sub ( ByVal pNode Come TreeNode , ByVal dirStr As String ) per

Dim myDir quanto Elenco

Dim iCnt As Integer

iCnt = 0 A ( myDir.GetDirectories ( dirStr ) Lunghezza . ) - 1

Dim childNode come nuovo _

TreeNode ( myDir.GetDirectories ( dirStr ) ( iCnt ) . ToString , 1 , 0 ) per

iCnt = pNode.Nodes.Add ( childNode ) per

Successivo iCnt

iCnt = 0 A ( myDir.GetFiles ( dirStr " . * xls ") Lunghezza ) - . 1

Dim childNode As New _

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

iCnt = pNode.Nodes.Add ( childNode ) per

Successivo iCnt

pNode.Expand ( ) per

End Sub
Pagina 6

Premere " F5 " per eseguire la subroutine quindi fare clic su un file Excel per aprirlo.

• Come costruire un Countdown Timer elettronico 
• Come creare un thread all'interno di un Dynamic Link Library