Wissen, wie man ein TreeView-Steuerelement verwenden, um durch die Ordner und öffnen Sie Microsoft Excel-Arbeitsmappe Dateien navigieren können Sie Zeit sparen , wenn Sie speziell gesuchten für Arbeitsmappen. Sie können eine Microsoft Visual Basic.NET (VB.NET )-Projekt , um diese Aufgabe zu erfüllen. VB.NET ist eine objekt-orientierte Programmiersprache verwendet, um Windows-Anwendungen zu erstellen. Ein TreeView-Steuerelement wird häufig verwendet , um durch eine Ordnerstruktur navigieren. In wenigen Schritten können Sie eine VB.NET-Projekt für Excel-Dateien suchen und öffnen Sie sie mit dem TreeView-Steuerelement . Things You
Microsoft Visual Basic Express
brauchen anzeigen Weitere Anweisungen
1
Starten Sie Microsoft Visual Basic Express, klicken Sie auf " Neues Projekt ... " auf der linken Seite des Bildschirms und wählen Sie dann "Windows Forms-Anwendung. " Klicken Sie auf " OK".
2
Doppelklicken Sie auf " TreeView " auf der "Toolbox" Fenster, um ein neues TreeView-Steuerelement hinzuzufügen. Doppelklicken Sie auf " Form1 ", um die " Form1.vb "-Modul zu öffnen.
3
Geben Sie den folgenden Abschnitt " Form1_Load " zu definieren, die Source-Strecke , um die Suche zu starten und die ersten Knoten hinzufügen :
Dim As New frstNode System.Windows.Forms.TreeNode ()
frstNode.ImageIndex = 0
frstNode.SelectedImageIndex = 0
frstNode . Text = "G : \\ "
TreeView1.Nodes.Add ( frstNode )
4
klicken Sie auf " Form1.vb [Entwurf] " und doppelklicken Sie auf das " TreeView "-Steuerung . Geben Sie den folgenden auf Verzeichnisse und Dateien auf dem Steuerelement hinzuzufügen :
Dim obj As New Process
Text = e.Node.Text
Wenn Directory.Exists ( e.Node . Text ) = True Then
GetFiles ( e.Node , e.Node.Text )
End If
Wenn File.Exists ( e.Node.Text ) = True Then
obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus )
End If
5
Geben Sie den folgenden unter " Public Class Form1 ", um erstellen Sie eine neue Subroutine, die für Verzeichnisse und Dateien gesucht wird :
private Sub GetFiles (ByVal pNode Wie TreeNode , ByVal dirStr As String) Dim
myDir Als Verzeichnis
Dim iCnt As Integer
iCnt = 0 To ( myDir.GetDirectories ( dirStr ) Länge . ) - 1
Dim childNode As New _
TreeNode ( myDir.GetDirectories ( dirStr ) ( iCnt ) . ToString , 1, 0)
iCnt = pNode.Nodes.Add ( childNode )
Weiter iCnt
iCnt = 0 To ( myDir.GetFiles ( dirStr " . * xls " ) Länge ) - . 1 of
Dim childNode As New _
TreeNode ( myDir.GetFiles ( dirStr " * xls "). ( iCnt ) ToString , . 2, 2 )
iCnt = pNode.Nodes.Add ( childNode )
Weiter iCnt
pNode.Expand ()
End Sub
Seite 6
Presse "F5" auf Ihrer Subroutine führen Sie dann auf eine Excel -Datei zu öffnen.
