Développé sous VB 2005 Express Edition , ce nouveau DirExplorer reprend les grandes lignes de son petit frère en VB6 à savoir:
- arborescence des répertoires avec les vrais icônes
- choix de la racine (bureau, poste de travail...)
- possibilité d'ouvrir un répertoire en passant le chemin (ex : "c:\program files")
mais il inclut une nouvelle fonction et pas n'importe laquelle:
- mise à jour automatique des sous-répertoires s'ils sont modifiés par une appli extérieure (sous-répertoire ajouté, supprimé, renommé)
Note du 18/04/2007 :
et maintenant il fait encore plus fort ;-)
- ajout d'un raccourci perso avec icon perso sous la racine
- ajout de checkbox 3 états
- ajout des fichiers du répertoire
- navigation dans les branches via une énumération
- récupération des propriétés :
- Text
- Path
- Checked
- CheckState
- Parent
- Tag (ça c'est pour mettre un object pour ceux qui veulent)
- IsExpanded
- Nodes (ça c'est une énumération pour naviguer dans l'arborescence)
- deux méthodes:
Source / Exemple :
'-------------------------------------------------------------------------------------------------------------
'un exemple pour récupérer toutes les branches cochées
'-------------------------------------------------------------------------------------------------------------
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
MsgForNodeChecked(DirExplorer1.Root)
End Sub
Private Sub MsgForNodeChecked(ByVal Node As DirExplorerOCX.DirExplorerNode)
Dim NodeFille As DirExplorerOCX.DirExplorerNode
For Each NodeFille In Node.Nodes
If NodeFille.IsExpanded = True Then
MsgForNodeChecked(NodeFille)
ElseIf NodeFille.CheckState = CheckState.Checked Then
MsgBox(NodeFille.Text)
End If
Next
If Node.CheckState = CheckState.Checked Then MsgBox(Node.Text)
End Sub
'-------------------------------------------------------------------------------------------------------------
'exemple d'utilisation de certaines propriétés
'-------------------------------------------------------------------------------------------------------------
DirExplorer1.CheckBoxes = True
DirExplorer1.UseCustomIcon = True
DirExplorer1.UseContextMenu = True
DirExplorer1.MyShortCutPath = "c:\"
Var = DirExplorer1.SelectedItem.Text
DirExplorer1.TreeRoot = DirExplorerOCX.DirExplorer.enumTreeRoot.PosteDeTravail
DirExplorer1.SelectedItem.Checked = True
Conclusion :
Fonctionnalité en tête (et oui je sais pas encore si elles seront toutes implémentées)
- intéraction avec un FileExplorer (listview de fichiers) (fileexplorer non développé pour le moment)
- menu contextuel (fonctionnalité disparue mais que je vais développer avec certitude) << Note du 18/04/2007 : c'est fait
- possibilité de déplacer les répertoires (couper/coller)
- possibilité de créé une racine MyShortcutDir avant la racine principale pointant vers un dossier particulier (je viens d'avoir l'idée alors je sais pas pour quand ce sera ;-) ) << Note du 18/04/2007 : c'est fait
Toutes ces fonctionnalités seront bien évidemment activable ou non... << note du 18/04/2007 : pour celles qui sont implémentées ça l'est
Enfin : merci encore à Renfield qui m'avait permi de réaliser la version VB6 sans laquelle je n'aurais jamais fait celle-ci
excellent travail !
Mais quelle est la licence de ce code ? Sans infos de licence on pourrait penser que c'est du public domain, mais pourrais-tu confirmer ? Si ce n'est pas public domain, c'est compatible GPL3 ?
Merci
@+
Moi aussi je connais le petit frère version VB6 (que j'utilise toujours d'ailleurs),
mais je tente de passer doucement vers VB2008, hélas ta source à été conçue pour VB2005 et malgré l'outil de transposition, il y a des erreurs, qui sont encore trop compliquée pour moi, à gérer sous .NET
Comme ton ancienne version était très stable, et que visiblement celle-ci semble l'être aussi, ma question serait de savoir si tu aurais l'extrême gentillesse de repasser ton source dans la moulinette pour qu'il fonctionne sous VB2008 ?
D'avance merci,
Fraggy.
pour ce qui avaient aimé cela, venez voir ça :
http://www.vbfrance.com/code.aspx?ID=42960
le DirExplorer légèrement modifié ;-) avec un FileExplorer le tout dans un YommExplorer ;-)
@+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.