Att veta hur man använder en trädvy för att navigera genom mappar och öppna Microsoft Excel-filer Arbetsbok kan spara tid när du söker specifikt för arbetsböcker . Du kan skapa ett Microsoft Visual Basic.NET ( VB.NET ) projekt för att utföra denna uppgift . VB.NET är ett objektorienterat dator programmeringsspråk som används för att skapa Windows-program . En TreeView kontroll används ofta för att navigera genom en mappstruktur . I några få steg kan du skapa ett VB.NET projekt för att söka efter Excel-filer och öppna dem med TreeView kontroll . Saker du behöver
Microsoft Visual Basic Express
Visa fler instruktioner
1
Starta Microsoft Visual Basic Express , klicka på " Nytt projekt ... " På den vänstra rutan på skärmen och välj sedan " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " TreeView " på " Toolbox " rutan för att lägga till en ny trädvy kontroll . Dubbelklicka på " Form1 " för att öppna " Form1.vb " modul .
3
Skriv följande under " Form1_Load " för att definiera källa väg att börja söka och lägga till den första noden :
Dim frstNode Som New System.Windows.Forms.TreeNode ( ) katalog
frstNode.ImageIndex = 0
frstNode.SelectedImageIndex = 0
frstNode . text = " G : \\ "
TreeView1.Nodes.Add ( frstNode )
4
klicka på " Form1.vb [ Design ] " och dubbelklicka på " TreeView " kontroll . Skriv följande för att lägga till kataloger och filer med kontrollen :
Dim obj Som Ny Process
Text = e.Node.Text
p Om Directory.Exists ( e.Node . Text ) = sant då
getFiles ( e.Node , e.Node.Text ) katalog
End If
p Om File.Exists ( e.Node.Text ) = sant då
obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus ) katalog
End If
5
Skriv följande i " Public Class Form1 " till skapa en ny subrutin som kommer att söka efter kataloger och filer :
Private Sub getFiles ( ByVal pNode som TreeNode , ByVal dirStr As String ) katalog
Dim mydir som Directory
Dim iCnt As Integer
För iCnt = 0 till ( myDir.GetDirectories ( dirStr ) Längd . ) - 1
Dim childNode som New _
TreeNode ( myDir.GetDirectories ( dirStr ) ( iCnt ) . ToString , 1 , 0 ) katalog
iCnt = pNode.Nodes.Add ( childNode ) katalog
Nästa iCnt
För iCnt = 0 till ( myDir.GetFiles ( dirStr , " *. xls " ) Längd ) - . 1
Dim childNode Som New _
TreeNode ( myDir.GetFiles ( dirStr , " * xls . " ) ( iCnt ) toString , . 2 , 2 ) katalog
iCnt = pNode.Nodes.Add ( childNode ) katalog
Nästa iCnt
pNode.Expand ( ) katalog
End Sub
6
Tryck " F5 " för att köra din subrutin klicka en Excel -fil för att öppna den . Addera
