Weten hoe je een treeviewcontrole gebruiken om te navigeren door mappen en open de Microsoft Excel-werkmap -bestanden kunt u tijd besparen wanneer u specifiek op zoek bent naar werkboeken . U kunt een Microsoft Visual Basic.NET ( VB.NET ) project te maken om deze taak te volbrengen . VB.NET is een object - georiënteerde programmeertaal gebruikt om Windows- applicaties te maken . Een treeviewcontrole wordt vaak gebruikt om te navigeren door een mappenstructuur . In een paar stappen kunt u een VB.NET project te creëren om te zoeken naar Excel-bestanden en open ze met behulp van de treeviewcontrole . Wat je nodig hebt
Microsoft Visual Basic Express
Toon Meer Aanwijzingen
1 Start Microsoft Visual Basic Express , klikt u op " New Project ... " aan de linkerkant van uw scherm en selecteer " Windows Forms Application . " Klik op "OK . "
Dubbelklik op " TreeView " 2 op de " Toolbox " deelvenster naar een nieuwe treeviewcontrole voegen . Dubbelklik op " Form1 " om de " Form1.vb " module te openen .
Type 3 de volgende onder " Form1_Load " aan de bron weg te definiëren om het zoeken te starten en het eerste knooppunt toe te voegen : Dim frstNode
als Nieuwe System.Windows.Forms.TreeNode ( ) = 0
frstNode.SelectedImageIndex = 0 frstNode
frstNode.ImageIndex
. text = " G : \\ " TreeView1.Nodes.Add ( frstNode )
klik Goedkope 4 " Form1.vb [Design ] " en dubbelklik op het " TreeView " controle . Typ het volgende om mappen en bestanden toe te voegen aan de controle : Dim obj
als Nieuwe Proces Tekst
= e.Node.Text
Als Directory.Exists ( e.Node . tekst ) = True getfiles dan
( e.Node , e.Node.Text ) Eind
Als
Als file.exists ( e.Node.Text ) = True obj.Start dan
( e.Node.Text , AppWinStyle.MaximizedFocus ) End of Indien
5 Typ de volgende onder " Public Class Form1 " te maak een nieuwe subroutine die zal zoeken naar bestanden en directories: Private Sub getfiles
( ByVal pNode Zoals TreeNode , ByVal dirStr als Koord ) Dim Mijnmap
Zoals Directory Dim iCnt
As Integer
iCnt = 0 To ( myDir.GetDirectories ( dirStr ) Length . ) - 1
Dim childNode als Nieuwe _ TreeNode
( myDir.GetDirectories ( dirStr ) ( iCnt ) . ToString , 1 , 0 ) iCnt = pNode.Nodes.Add ( childNode ) op
Volgende iCnt
iCnt = 0 To ( myDir.GetFiles ( dirStr , " . * xls ") Lengte ) - . 1 Dim childNode
als Nieuwe _ TreeNode
( myDir.GetFiles ( dirStr , " * xls . " ) ( iCnt ) ToString , . 2 , 2 ) iCnt = pNode.Nodes.Add ( childNode ) op
Volgende iCnt pNode.Expand ( )
End Sub
Druk op " F5 " 6 om uw subroutine draaien vervolgens op een Excel-bestand om het te openen .
|
