|
Savoir comment utiliser un contrôle TreeView pour naviguer dans les dossiers et les fichiers de classeur ouvert Microsoft Excel peut vous faire gagner du temps lorsque vous êtes à la recherche spécifiquement pour les classeurs . Vous pouvez créer un projet Microsoft Visual Basic.NET ( VB.NET ) pour accomplir cette tâche . VB.NET est un langage de programmation informatique orienté objet utilisé pour créer des applications Windows . Un contrôle TreeView est souvent utilisé pour naviguer à travers une structure de dossiers . En quelques étapes , vous pouvez créer un projet VB.NET pour rechercher des fichiers Excel et de les ouvrir à l'aide du contrôle TreeView . Choses que vous devez
Microsoft Visual Basic Express
Voir Plus Instructions
1 Démarrez Microsoft Visual Basic Express, cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran , puis sélectionnez « Application Windows Forms . " Cliquez sur « OK ».
2 Double -cliquez sur " TreeView " sur le volet «boîte à outils » pour ajouter un nouveau contrôle TreeView. Double -cliquez sur " Form1 " pour ouvrir le "Form1.vb" module .
3 Tapez la commande suivante sous la rubrique « Form1_Load " pour définir le chemin d'accès source pour démarrer la recherche et à ajouter le premier nœud : Photos frstNode As New System.Windows.Forms.TreeNode ()
frstNode.ImageIndex = 0
frstNode.SelectedImageIndex = 0
frstNode . Text = " G: \\ "
TreeView1.Nodes.Add ( frstNode )
4 cliquez sur " Form1.vb [Design] " et double- cliquez sur le contrôle " TreeView " . Tapez la commande suivante pour ajouter des répertoires et fichiers à la commande :
obj As New Process
Text = e.Node.Text
Si Directory.Exists ( e.Node . texte ) = Vrai ALORS
getFiles ( e.Node , e.Node.Text )
End If
Si File.Exists ( e.Node.Text ) = true Then
obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus )
End If
5 Tapez la commande suivante sous la rubrique « public Class Form1 " à créer un nouveau sous-programme qui va chercher pour les répertoires et les fichiers :
getFiles Private Sub ( ByVal pnode Comme TreeNode , ByVal dirStr As String )
mYDIR As Annuaire
Icnt Dim As Integer
Icnt = 0 To ( myDir.GetDirectories ( dirStr ) Longueur . ) - 1 x childNode As New _
TreeNode ( myDir.GetDirectories ( dirStr ) ( NTIC ) . ToString , 1, 0)
Icnt = pNode.Nodes.Add ( childNode )
Suivant Icnt
Icnt = 0 To ( myDir.GetFiles ( dirStr , " *. xls " ) Longueur ) - 1.
childNode As New _
TreeNode ( myDir.GetFiles ( dirStr , " * . xls ") ( NTIC ) ToString . 2, 2 )
Icnt = pNode.Nodes.Add ( childNode )
Suivant Icnt
pNode.Expand ()
End Sub
6 Appuyez sur " F5 " pour exécuter votre routine puis cliquez sur un fichier Excel pour l'ouvrir.
|
