FILEVIEW ==> USERCONTROL POUR EXPLORER FICHIERS ET/OU DOSSIERS (REMPLACE DIRLIST
violent_ken
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
28 oct. 2006 à 22:58
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 mars 2009 à 12:34
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 mars 2009 à 12:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40114-fileview-usercontrol-pour-explorer-fichiers-et-ou-dossiers-remplace-dirlistbox-et-ou-filelistbox
https://codes-sources.commentcamarche.net/source/40114-fileview-usercontrol-pour-explorer-fichiers-et-ou-dossiers-remplace-dirlistbox-et-ou-filelistbox
11 mars 2009 à 12:34
http://msdn.microsoft.com/en-us/library/bb761389(VS.85).aspx
mais un bon paquet, pas de souci là dessus
11 mars 2009 à 12:27
beau travail!
Je suis toujours entrain de fouiller dans les archives par ce que selon moi la vielle école est plus éfficace!
une question un imagliste peut contenir combien de item sans craquer?
merci et bonne prog a tous
26 juil. 2007 à 10:13
Tres bien fait et tres pratique, exactement ce dont j'avais besoin.
Cependant, deux questions :
1/ J'ai un bug lorsque je trie en cliquant sur un des headers lorsqu'aucun fichier n'est present (je ne visualise que les fichiers, pas les dossiers...)
2/ Comment definir la largeur des colonnes et si c'est possible definir l'ordre des colonnes ? En gros me faudrait juste le nom et la date, le reste soit je l'enleve soit je le met a la fin...
Merci encore !
12 avril 2007 à 18:42
Donc tu ne pourras pas essayer mon code avec ce logiciel.
@+
12 avril 2007 à 17:55
Je suis débutant en VB !
Je voulais voir a quoi ressemblait l'explorateur mais j'ai pas réussit a le lire avec VB 2005 express ??
C'est normal ?
@+
15 janv. 2007 à 09:58
Toujours impécable...
A+
Exploreur
14 janv. 2007 à 16:41
-optimisation (moins de Refresh au loading du composant)
-correction de bugs (notemment HitTest qui ne marchait pas)
-ajout de deux propriétés au controle (Font et ItemWidth)
-changement d'exemple
@+
29 oct. 2006 à 23:32
-pour la fonction IsAttrOk : c'est en effet plus propre avec des And, je changerai.
-pour le nom complet dans l'arborescence, je vais effectivement le mettre en option. Dans mon projet, il est intéressant de voir le path complet, d'où le fait que j'ai développé çà comme çà par défaut. Mais j'y avais réfléchi après coup, et dans la mesure où l'on met un affichage du path à l'extérieur du usercontrol (comme la barre d'adresse pour l'explorer) c'est vrai que c'est louche.
-"DisplayIcones" ==> ;) je corrigerai
-pour l'erreur sur le Filelen, je vais essayer de corriger. Mais de toutes façons, la fonction AddFileToLV est peu utile.
-pour les noms des drives, je les mettrai lors de la MAJ, mais je ne pense pas mettre leur icone spécifique (qui change pour les périphériques de stockage autres que les HDD). De même pour les dossiers, je laisse une unique icone (plus simple et plus rapide).
Merci bien pour tes conseils, je vais pouvoir améliorer cette source !
Peut être bientôt l'application entière...
@+
29 oct. 2006 à 21:16
Pour IsAttrOK, n'utilises pas ces soustraction et ces comparaisons...
fais un masque avec And :
If (lAttribute and vbHidden) Then
étrange de voir repris toute l'arborescence dans la colonne nom... peut être le mettre en option
"DisplayIcones" => "DisplayIcons"
Appelles Refresh dans InitProperties
Crash lors de l'appel de FileLen (AddFileToLV) si le nom de fichier contient un caractère unicode (Helloş.txt)
Ce bug est visible uniquement si l'on désactive la gestion d'erreur.
Gaffe a tes On Errors, ils font que cette erreur remonte jusque chez le client,
dans
Private Sub FileView1_ItemDblSelection(Item As ComctlLib.ListItem)
If Not Item Is Nothing Then
If Item.Text <> ".." Then MsgBox "Vous avez sélectionné l'objet" & vbNewLine & Item.Text, vbInformation, "Sélection"
End If
End Sub
Se serait bien de voir le nom des disques, a cote de leur lettre
29 oct. 2006 à 19:11
@+
29 oct. 2006 à 19:09
Rapide et pas de bug a ma connaisance, un superbe code !
A metre de coter pour un autre soft !
10/10
Ergo5
29 oct. 2006 à 11:47
Certes, je sais que c'est pas vraiment une bonne idée d'utiliser FSO, mais c'est vraiment ce qu'il y a de plus simple que j'ai trouvé pour gérer les éléments avec des attributs exotiques ; Dir, par exemple, ne détecte pas (il me semble) les dossiers système.
Et j'ai vraiment besoin (c'est pour çà que j'ai fait cette source) de voir TOUS les fichiers/dossiers présents...
Donc si tu as une idée pour faire sans, je modifie de suite la source...
Je suis bien conscient que FSO, c'est pas génial -__-
@+
29 oct. 2006 à 11:43
Tu devrais pas utiliser la FSO...
comme son nom l'indique, elle est destinée a être utilisée pour le scripting :
Elle est lente ^^
28 oct. 2006 à 22:58
@+