vide hvordan man bruger en TreeView kontrol til at navigere gennem mapper og åbne Microsoft Excel-projektmappe -filer kan spare dig tid, når du søger specifikt til projektmapper. Du kan oprette en Microsoft Visual Basic.NET ( VB.NET ) projekt for at udføre denne opgave. VB.NET er et objekt -orienteret programmering sprog, der bruges til at oprette Windows-programmer. Et TreeView kontrol er ofte bruges til at navigere gennem en mappestruktur . I et par trin, kan du oprette en VB.NET projekt for at søge efter Excel-filer og åbne dem ved hjælp af TreeView kontrol. Ting du skal
Microsoft Visual Basic Express
Vis Flere Instruktioner
1
Start Microsoft Visual Basic Express , klik på " Nyt projekt ... " på den venstre rude på skærmen og derefter vælge "Windows Forms Application ". Klik på "OK".
2
Dobbeltklik på " TreeView " på " Toolbox" ruden for at tilføje en ny TreeView kontrol. Dobbeltklik på " Form1 " for at åbne " Form1.vb "-modulet .
3
Skriv følgende under " Form1_Load " for at definere kilden vej til at starte søgning og tilføje den første node : Hej
Dim frstNode Da New System.Windows.Forms.TreeNode ()
frstNode.ImageIndex = 0
frstNode.SelectedImageIndex = 0
frstNode . Text = "G : \\ "
TreeView1.Nodes.Add ( frstNode )
4
klik på " Form1.vb [ Design ] ", og dobbeltklik på " TreeView " kontrol . Skriv følgende for at føje mapper og filer til kontrol : Hej
Dim obj As New Process
Text = e.Node.Text
p Hvis Directory.Exists ( e.Node . Text) = true Så
GetFiles ( e.Node , e.Node.Text )
End If
p Hvis File.Exists ( e.Node.Text ) = sandt, så
obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus )
End If
5
Skriv følgende under " Public Class Form1 " til oprette en ny subrutine , der vil søge efter mapper og filer :
Private Sub GetFiles ( ByVal pNode som TreeNode , ByVal dirStr As String )
Dim mydir som Register
Dim iCnt As Integer
iCnt = 0 To ( myDir.GetDirectories ( dirStr ) Længde . ) - 1
Dim childNode som ny _
TreeNode ( myDir.GetDirectories ( dirStr ) ( iCnt ) . ToString , 1, 0 )
iCnt = pNode.Nodes.Add ( childNode )
Næste iCnt
iCnt = 0 To ( myDir.GetFiles ( dirStr , ". * xls ") længde) - . 1
Dim childNode Som New _
TreeNode ( myDir.GetFiles ( dirStr , " * xls . ") ( iCnt ) toString . 2 , 2)
iCnt = pNode.Nodes.Add ( childNode )
Næste iCnt
pNode.Expand ()
End Sub
6
Tryk på " F5 " for at køre din subrutine derefter klikke på en Excel- fil for at åbne den.
