Nwlapcug.com


Come utilizzare il controllo TreeView per spostarsi per aprire altre cartelle di lavoro

Come utilizzare il controllo TreeView per spostarsi per aprire altre cartelle di lavoro


Saper utilizzare un controllo TreeView per spostarsi tra cartelle e Apri cartella di lavoro di Microsoft Excel file consente di risparmiare tempo quando stai cercando specificamente le cartelle di lavoro. È possibile creare un progetto di Microsoft Visual Basic.NET (VB.NET) per eseguire questa operazione. VB.NET è un object-oriented programmazione linguaggio utilizzato 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 Excel e aprirli utilizzando il controllo TreeView.

Istruzioni

1

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

2

Fare doppio clic "TreeView" nel riquadro "Toolbox" per aggiungere un nuovo controllo TreeView. Fare doppio clic su "Form1" per aprire il modulo di "Form1. vb".

3

Digitare quanto segue sotto "Form1_Load" per definire il percorso di origine per avviare la ricerca e per aggiungere il primo nodo:

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

frstNode.ImageIndex = 0

frstNode.SelectedImageIndex = 0

frstNode.Text = "G:\"

TreeView1.Nodes.Add(frstNode)

4

Fare clic su "Form1. vb [Design]" e fare doppio clic sul controllo "TreeView". Digitare il comando seguente per aggiungere i file e directory al controllo:

Dim obj As New Process

Testo = e.Node.Text

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

getFiles (e. Node, e.Node.Text)

End If

Se File.Exists(e.Node.Text) = True Then

obj. Inizio (e.Node.Text, MaximizedFocus)

End If

5

Digitare quanto segue sotto "Public Class Form1" per creare una nuova subroutine che eseguirà la ricerca per file e directory:

Private Sub getFiles (ByVal pNode As TreeNode, ByVal dirStr As String)

Dim myDir As Directory

Dim iCnt As Integer

For iCnt = 0 To (myDir.GetDirectories(dirStr).Length) - 1

Dim childNode As New _

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

iCnt = pNode.Nodes.Add(childNode)

Next iCnt

For iCnt = 0 To (myDir.GetFiles(dirStr, "*.xls").Length) - 1

Dim childNode As New _

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

iCnt = pNode.Nodes.Add(childNode)

Next iCnt

pNode.Expand()

End Sub6

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