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.
