UN OCX FAÇON FILELISTBOX AVEC ICONES DE FICHIERS , MENU CONTEXTUEL ET RAFFRAICHI
yomm
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
-
24 févr. 2004 à 02:25
marc660 Messages postés 171 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 18 juillet 2007 - 25 juin 2006 à 13:05
marc660 Messages postés 171 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 18 juillet 2007 - 25 juin 2006 à 13:05
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/20714-un-ocx-facon-filelistbox-avec-icones-de-fichiers-menu-contextuel-et-raffraichissement-auto
https://codes-sources.commentcamarche.net/source/20714-un-ocx-facon-filelistbox-avec-icones-de-fichiers-menu-contextuel-et-raffraichissement-auto
25 juin 2006 à 13:05
J'ai trouver la solution..
Il suffit de rajouter...
Const m_def_ListIndex = 0
Dim m_ListIndex As Integer
'Public Property Get SelectedFile() As String
m_Selected = TView.Nodes.Item(m_ListIndex).Selected ''
'Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_ListIndex = PropBag.ReadProperty("ListIndex", m_def_ListIndex)
'Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("ListIndex", m_ListIndex, m_def_ListIndex)
Public Property Get ListIndex() As Integer
ListIndex = m_ListIndex
End Property
Public Property Let ListIndex(ByVal New_ListIndex As Integer)
m_ListIndex = New_ListIndex
PropertyChanged "ListIndex"
End Property
Private Sub TView_Click()
m_ListIndex = TView.Nodes.Item(TView.SelectedItem.Index).Index
RaiseEvent Click
End Sub
Merci
24 juin 2006 à 20:54
je désir ajouter le listindex mes je ne suis pas très for dans la création de contrôles.
Const m_def_ListIndex = 0
Dim m_ListIndex As Integer
'Public Property Get SelectedFile() As String
m_Selected = TView.Nodes.Item(m_ListIndex).Selected ''
'Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_ListIndex = PropBag.ReadProperty("ListIndex", m_def_ListIndex)
'Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("ListIndex", m_ListIndex, m_def_ListIndex)
Public Property Get ListIndex() As Integer
ListIndex = m_ListIndex
End Property
Public Property Let ListIndex(ByVal New_ListIndex As Integer)
m_ListIndex = New_ListIndex
PropertyChanged "ListIndex"
End Property
Voilà ce dont j'ai r'ajouter, mais toujours une réponse "0" Me.Caption = FileExplorer1.ListIndex
merci
30 nov. 2004 à 14:34
en fait l'arborescence d'un chemin réseaux n'existe pas vraiment, elle dépend de la version de windows (enfin je crois)...je suis en train de regarder comment cela peut etre faisable, je pense qu'en faisant le chemin inverse, c'est à dire partir du "\\La_Machine" et de son pidl, je peux peut etre , en récupérant le pidl parent, remonter jusk'au début de l'arborescence, et en mémorisant au fur et à mesure les différents pidl parents, puis redescendre grace au pidl mémorisés afin d'ouvrir les branches et arriver au résultat que tu souhaites...je te tiendrai au courant dès que j'aurai trouver comment gérer cela...
30 nov. 2004 à 11:28
Mais pour le DirExplorer, si tu donne un chemin du genre DirExplorer.Chemin = "\\La_Machine\Repertoire\sousRepertoire", il ne se passe rien !!
Ca ne fonctionne que sur un lecteur réseau ou disque dur !
ou bien ??
30 nov. 2004 à 11:05
le control avance doucement mais sûrement ;-)
>>cricri67
en fait tu as juste à faire :
FileExplorer.Path = "\\La_Machine\Repertoire\sousRepertoire"
29 nov. 2004 à 16:20
27 oct. 2004 à 21:19
12 oct. 2004 à 19:07
En fait je vais tout reprendre...et oui certaines fonctions à implémenter serainet plus facile avec une listview qu'avec un treeview...sachant que le FileExplorer n'utilise pas les fonctionnalités d'arbre à proprement parler mais qu'il aurait besoin du multiselect (une des demandes de Fraggy), et que cette dernière n'existe pas en natif sur le treeview, je vais surement revoir le FileExplorer en le basant donc sur une listview...le développement de cette version risque de me prendre plus de temps que prévu...mais bon...
Si certains se demandent si ils auront vraiment besoin de cette futur version, voici au moins 2 fonctions que je vais tenter d'implémenter:
- le multiselect
- le filtre d'extention afin de pouvoir filtrer à partir de quelque chose du genre : *.jpg|*.jpeg|*.bmp|*.gif
voila, c'était juste pour info...
@+
8 oct. 2004 à 17:30
Si vous n'êtes pas très doué avec les listview et les treeview, cette source est sans l'ombre d'un doute pour vous.
7 oct. 2004 à 12:23
d'autre modif m'ont été demandées et seront à venir ces jours çi.....
6 juil. 2004 à 12:43
6 juil. 2004 à 11:31
Une petite suggestion pour le DirExplorer : rajoute l'événement Click : un simple RaiseEvent Click dans l'événement Click de ton ListView des répertoires suffit.
Merci beaucoup, je posterais ma source d'extraction d'icône utilisant tes ocx dès que je l'aurais finie, et je te mentionnerais bien entendu ;-)
DarK Sidious
6 juil. 2004 à 11:09
auncun problème pour les utiliser ...juste un petit truc ...avant d'utiliser le DirExplorer attends un peu , je dois faire une modif ...en fait je doit juste mettre a jour mon source mais là je suis pas chez moi ;-)...là modif peut t'intéresser..il s'agit du raffraichissement des répertoire lorske tu fermes une branche et ke tu la réouvres...en effet avec la version actuelle, pour raffraichir un répertoire de l'arbre il faut quitter l'application....
Enfin bref...tout mes controles sont ici pour etre utilisés...en échange je demande un simple commentaire et un petit 10 ;-) ...
Bonne prog
6 juil. 2004 à 10:39
Donc, en commentaire pour ta source : ben je la trouve excellente, sinon, je ne voudrais pas l'utiliser ;op
Merci d'avance
DarK Sidious
28 juin 2004 à 12:24
27 juin 2004 à 06:54
un probleme chez moi est resolu: je n'ai pas la bonne version de visual basic: il me faudrait professional ou enterprise pour pouvoir creer des ocx. Apres l'ouverture du fichier vbg apparait bien dans mon menu l'option "creer FileExplorer.ocx", mais pratiquement elle ne me sert a rien. Apres une demande dans une newsgroup on me l'a confirmé. Donc, je ne peux pas tester plus loin..:-( pour l'instant...!
N'empeche que j'ai quand meme le probleme que dans mon application MSAccess le SelectedFile de FileExplorer ne fournit pas de resultat!
25 juin 2004 à 22:05
25 juin 2004 à 22:02
tu a bien fai la modif de la procédure Mouse_Down ???
>>azerty25
je sais plu koi te dire....ça marche chez moi et ça marche a mon taf... désolé surtout en aveugle c'est dur de comprendre un tel problème...
25 juin 2004 à 21:51
25 juin 2004 à 21:44
entre temps j'ai essaye autre chose: si je rajoute par exemple une image dans le formulaire et que j'ecris "msgbox "hallo"" dans l'evenement click de cette image, tout marche normalement: il me dit hallo.
Pour le FileExplorer1 y a rien a faire, il me fait pas mon evenement click! Comment est-ce possible? Est-ce programmé quelque part dans le code du FileExplorer?
Comme dit: pour le DirExplorer tout marche normalement...
25 juin 2004 à 21:29
25 juin 2004 à 21:15
en regardant de plus pres, j'ai vu que dans ton Form1 DirExplorer1 et FileExplorer1 sont des PictureBox!? et non pas des FileExplorer et DirExplorer (comme dans le code de Urgo)
Je pense que cela a a voir avec l'installation correcte des .ocx?
J'ai d'ailleurs remarque que tu n'avais plus de ocx dans ton zip????
les problemes sont surement dus a ces histoires de composants...
25 juin 2004 à 18:49
pour ton problème de click, dans le controle FileExplorer,
modifie la procédure TView_MouseDown existante par ceci:
---------------------------------------------------------------------------
Private Sub TView_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
' If ObjComportement = ComportAuto Then
Dim Branche As Node
Set Branche = TView.HitTest(100, y)
If Not (Branche Is Nothing) Then TView.Nodes(Branche.Index).Selected = True
Set Branche = Nothing
RaiseEvent Click
' End If
End Sub
------------------------------------------------------------------------------
et donne moi des nouvelles....
25 juin 2004 à 18:19
j'ai fait un download de ton fichier, et j'obtiens les memes erreurs que azerty25 au lancement du .vbg. (j'ai les memes composants installes que toi!)
Le fichier fourni par Urgo fonctionne chez moi presque sans problemes: sauf mon probleme de SelectedFile (voir plus haut)
Vu que je suis encore debutant en VisualBasic, en particulier des property, je ne sais pas encore où commencer pour resoudre le probleme: n'importe quel msgbox, meme un simple "msgbox "hallo"" ecrit dans le FileExplorer1_Click() du Form Example est sans résultat. Où peut etre le blocage dans le form?
merci pour les reponses. Remy.
25 juin 2004 à 14:37
si tu fais:
menu projet > composants
qu'as tu comme controles Microsoft Windows Common Controls
moi j'ai
Microsoft Windows Common Controls 5.0 (SP2)
Microsoft Windows Common Controls 6.0 (SP4)
Microsoft Windows Common Controls-2 5.0 (SP2)
Microsoft Windows Common Controls-2 6.0 (SP4)
Microsoft Windows Common Controls-3 6.0 (SP5)
assure toi de bien avoir le:
Microsoft Windows Common Controls 5.0 (SP2)
car le FileExplorer utilise le TreeView de ce groupe de controle...sinon je vois pas...
25 juin 2004 à 14:19
25 juin 2004 à 13:31
25 juin 2004 à 10:57
24 juin 2004 à 22:40
J'ai lié les deux controles dans mon application MS-Access, et j'y ait les memes problemes avec fileexplorer_click: donc cela ne semble pas etre lié a l'environnement visual-basic.
24 juin 2004 à 21:06
désolé pour tous les problèmes liés au source....
celui du "bordel" il est simple a comprendre et pourtant j'ai essayé de modifier autant que possible....
la raison est simple : j'utilise mes propre ocx pour d'autres projets donc vb s'embrouille car il a le même fichier référencé plusieur fois...
>>Azerty 25: pour l'erreur au démarrage
et bien...j'ai Xp sans service pack et vb 6 jusqu'au sp5...rien de plus
24 juin 2004 à 19:13
j'y ai ajouté dans le Form a DirExplorer1_Click:
msgbox DirExplorer1.chemin
-> il m'affiche bien le chemin
pour FileExplorer1_Click je fais:
msgbox FileExplorer1.SelectedFile
-> il y a rien qui se passe, meme si je fais par ex msgbox "hallo"...
quelqu'un a-t-il une solution?
24 juin 2004 à 14:04
Y'avait simplement des fichiers qui n'étaient pas liés au projet (cela arrive lorsqu'on déplace le projet sur le disque).
ciao
24 juin 2004 à 08:36
j'ai testé ce matin: chez moi ca marche maintenant. Merci Urgo (et yomm pour sa source;-).
Pour l'instant je n'ai fait que charger Example.vbp et group1.vbg.
dans les deux cas visualbasic m'a indique des erreurs de type au chargement mais maintenant plus rien.
je n'ai pas encore regardé ce que Urgo a exactement fait pour que ca marche, mais je vais m'y pencher dans la journee.
24 juin 2004 à 07:17
Apparament, je ne suis pas le seul, y'avait remy2405 sur la source de Yomm
24 juin 2004 à 00:50
yomm je suppose que c'est pareil :/
Mais y'a que toi pour l'instant où cela ne marche pas?!
23 juin 2004 à 22:10
Je sais pas de quoi sa peut bien venir, de la ligne que j'ai indiqué plus haut ?! Mais la source des plantages, ne viendrait-elle pas de l'utilisation des API d'acces en mémoire ? MoveMemory, Fill ... (VB ne supporte pas ces API et tout ce qui concerne les threads, sub classing ...)
23 juin 2004 à 20:40
Essai d'installer le dernier service pack de VB si tu l'as pas.
Sinon sur mon PC j'ai aussi Visual Studio .NET 2003 Enterprise Architect (mais il est inutile pour faire fonctionner le programme ici lol)
23 juin 2004 à 19:44
Non mais sérieu, vous avez qq chose d'installé qui est particulier ? Service Pack, version de VB ? Quel Windows ? Moi je suis sous XP (FR), version de VB6 : 8176 anglais, pas de service pak pour VB, Word97 (FR), pas de service pack de Windows.
23 juin 2004 à 19:19
http://membres.lycos.fr/teamapo/ICI/
-> C'est le fichier "FileExplorer_OK.rar"
Ciao ;)
Urgo pour vous servir :p
23 juin 2004 à 18:56
J'ai en effet le probleme de l'OCX, je l'joute donc en référence, le code démarre correctement lors du clik sur démarrage, puis ensuite, j'ai l'erreur que j'ai mentionnée plus haut. Tout ça dans le projet dans le ZIP. Pour ce qui est du "bordel", je pense pas que sa en sois vraiment un, il pouvait pour des raisons de commodité pas vraiment faire mieux (regardez certaines sources en DirectX, des jeux, vous comprendrez qu'a coté c'est rien) ;)
23 juin 2004 à 18:54
23 juin 2004 à 18:44
Au chargement de Group1.vbg j'ai un message d'erreurs qui dit qu'il n'arrive pas a trouver DirExplorer.ocx (comme chez azerty25).
Je pense que le probleme se situe effectivement seulement aux déclarations dans VisualBasic de ces bibliotheques?
Peut etre que tu pourrais (ou Urgo?) juste nous donner un petit coup de main pour debutant au niveau de ces declaration? Merci.
23 juin 2004 à 11:07
23 juin 2004 à 01:28
10/10
22 juin 2004 à 20:11
11 juin 2004 à 09:38
10 juin 2004 à 11:33
7 mai 2004 à 18:46
5 mai 2004 à 22:02
5 mai 2004 à 19:27
5 mai 2004 à 14:07
5 mai 2004 à 12:24
4 mai 2004 à 19:18
Je voudrai utiliser ton projet mais sa ne fonctionne pas, je veux ajouter directement l'ocx dans mon projet, mais quand j'ajoute les OCX sur la form, vb plante :(
Sinon, quand j'ouvre ton projet, il trouve pas l'oCX alorq qu'il est bien dans le ZIP (le répertoire est pourant le bon dans le message d'erreur), je met alors continuer. Apres il me dit erreur de chargement de form1, voir logs blabla, et apres, quand j'éxécute, il me pointe la ligne la comme "invalid procedure call or argument" : Set tvid = mTVItems(CStr(nmtv.itemOld.lParam))
Si tu trouverai ou est le probleme, sa serait super car moi pas comprendre projets de toi et Renfield lol
10 mars 2004 à 01:12
Jusqu'à présent il n'était pas possible de récupérer le nom du fichier sélectionné dans le FileExplorer.......et personne ne me l'a dit LOL
enfin voilà....;
maintentant vous pouvez faire :
FileExplorer.SelectedFile pour connaitre le nom du fichier sélectionné
FileExplorer.FileCount pour savoir combien il y a de fichier dans le FileExplorer
et enfin:
FileExplorer.File(i) pour récupérer le nom du Ième fichie dans la liste
ainsi vous pourvez faire par exmple:
For i = 0 to FileExplorer.FileCount -1
List1.Additem FileExplorer.File(i)
Next
26 févr. 2004 à 14:58
26 févr. 2004 à 11:39
allez Bin Dev à tous et à plus tard pour de nouvelles aventures
25 févr. 2004 à 22:03
Merci pour tes infos et cet OCX
25 févr. 2004 à 10:18
j'ai essayé par tous les moyens d'ouvrir le projet que tu m'as filé.... (en gros le mien auquel tu as voulu rajouter tes trucs perso, je suis à 100% pour ce type de démarche ) mais j'ai jamais pu l'ouvrir....plein de message en pagaille a cause de l'ocx que tu as voulu rajouter....des déclarations en double .....et autre...enfin bref....pour le coup de l'ouverture du fichier par click, et bien maintenant t'as cas faire un click droit puis ouvrir lol...non t'en fait pas, je le ferai...pas dans le click mais dans le double click..mais ce sera fait....comme j'ai dit , ça fait seulement 2 soirées que je suis sur ce projet...ça viendra....
sinon pour le menu contextuel et bien déjà:
En tout premier lieu, pour commencé ;-) ......le source que tu as récupéré comme exemple fonctionne pour des ListBox (DirListBox ou FileListBox ou ListBox tout court)...donc tous les messages envoyés, genre pour faire un test de l'index dans la liste pointé par la souris ne sont pas applicable pour mon ocx étant donné que la liste est créée a partir d'un TreeView...
Après et bien ...comment te dire....euh....MSDN....;-)
Car pour t'expliquer le fonction des pidlfq , pidlrel , IShellFolder ça prendrait un peu de temps...le plus simple pour déjà avoir une première idée, c'est que tu regardes, dans la fonction InsertFile toute à la fin les valeur que prennent:
tvid.pidlFQ, tvid.pidlRel , tvid.Path, tvid.lParam et tvid.hNode
tu as cas faire un debug.print de chaque valeur et rajoute aussi:
debug.print GetPathFromPIDL(tvid.pidlRel) histoire que tu vois bien la différence entre Rel et FQ (fq fully qualified rel related)
voilà et bon courage!
25 févr. 2004 à 09:32
25 févr. 2004 à 03:00
sinon , pour ce qui ne veulent pas du menu contextuel ou des autres options (futur ;-) ) gérées automatiquement par l'ocx c'est tout a fait possible...par l'intermédiaire de la propriétée Comportement prenant 2 valeurs possible : ComportManual ou ComportAuto. Comme le nom l'indique, c'est en choisissant ComportManual que l'on supprime toute gestion automatique de l'ocx et inversement....voilà j'espère ne pas avoir fait ça pour rien et que cela va intéresser du monde! (ça c'est un message subliminal pour dire : dites ce que vous pensez de ce source LOL )
24 févr. 2004 à 19:53
EBArtSoft teste ...je vois une légère différence sur le rep c:\windows\help mais bon les délais sont tout à fait raisonable en ce qui me concerne!!!
Quant au rep font.....c'est rapide (j'en ai peut etre moins que toi ....mais mon c:\windows\help fait tout de même 511 fichiers et je t'assure que je mets moins de 2 secondes!!!)
24 févr. 2004 à 19:33
sinon, j'ai failli m'énerver sur toi pensant que c'était toi qui avait fait chuter ma note mais.....généralement je suis pas méchant donc j'ai vérifié un truc.......vu ke tu es admin c'est pas toi qui l'a faite chuter....
;-)
Donc , que celui qui l'a fait m'explique pourquoi!!!!!!
(sinon , je suis sérieux EBArtSoft, défrag, il est grand tant!!!! lol )
24 févr. 2004 à 18:28
- Quelqu'un sait-il comment récupérer facilement le PIDL d'un fichier à partir de son path ? Je cherche à spécifier une racine d'arborescence arbitraire, à partir de son path.
24 févr. 2004 à 18:23
je met plus de 2 secondes pour afficher le repertoire c:\windows\font
@+
24 févr. 2004 à 10:45
24 févr. 2004 à 10:20
-------------------------------------------------------------------------------------
Waouw, déja fini lol ! J'ai meme pas eu le temps de commencer le mien !! Mais bon, j'aurai pas fait un truc aussi compliqué. IL faudrai que tu integre le menu contextuel, sa serai bien mais pas si simple, également le support des click
-------------------------------------------------------------------------------------
à étudier, pourquoi pas, j'ai bien eut ton MP je vais jeter un coup d'oeil à ton source dès que j'aurai 5 mintues.......
24 févr. 2004 à 03:19
24 févr. 2004 à 03:01
pour l'utilsation vous êtes libre
.pattern = "*.*"
ou
.pattern = "*.mp3"
ou
.pattern = "*.mp3;*.avi"
ou
.pattern = "*.mp3*.avi"
enfin bref l'inportant est d'avoir *.extention
c'est juste histoire d'avoir cette propriété afin de pouvoir filtrer les fichiers listés......
24 févr. 2004 à 02:25
ça sert toujours aux développeurs