YOMMEXPLOREROCX POUR CE QUI VEULENT UN VRAI EXPLORATEUR WINDOWS

Commentaire de Willi le 10/09/2005 12:48:09 administrateur CS

Marche impéccable ! 10/10
Continu....Bon dev...

Commentaire de Charles Racaud le 10/09/2005 15:08:47

Superbe, rien à dire, ça marche vraiment très bien, bref 10/10
Continue comme ça.
Bonne prog

Commentaire de Mikaels35 le 10/09/2005 15:50:39

Salut

C'est très bien mais chez moi ça fonctionne si je lance le GrpYommExplorerOCX.vbg dans le dossier dézippé mais pas avec le PrjTst.vbp ni si je crée un projet à part !

J'obtiens une erreur "Type incompatible" sur la ligne:

Call YommExplorer1.LVSub.Add(ListView1, lvwReport, "c:\")

Ai-je oublié quelque chose ?

@+

Commentaire de DARKSIDIOUS le 10/09/2005 17:28:50 administrateur CS

Non, une fois compilé (pour l'enregistrer dans le registre), ton ocx marche très bien !

DarK Sidious

Commentaire de yomm le 10/09/2005 19:52:11

>>Mikaels35
c'est cool ke ça marche, un instant tu m'as fait peur ;-)
et merci pour la note

@+

Commentaire de PaTaTe le 11/09/2005 13:48:54

Chez moi ca ne fonctionne pas ...

J'ai le message d'erreur suivant :

Unable to set the version compatible component : C:\...\YommExplorerOCX.ocx

Du fait que cela ne marche pas chez moi, j'aurais une question : Est-t-il possible de personaliser les menus contextuels ou non (en fonction des extention de fichirs notement) ?

Merci de m'aider

Commentaire de PaTaTe le 11/09/2005 17:06:36

ok merci :) 10/10

Commentaire de yomm le 12/09/2005 09:27:06

Mais pourquoi certains d'entre-vous me dise que cela marche pas...je suis désolé pour vous.Je viens moi-même de télécharger le zip depuis mon boulot, j'ai dezzipé, j'ai ouvert le fichier GrpYommExplorerOCX.vbg j'ai fait F5 et ça a marché du premier coup......

Je comprends pas le problème que vous avez....Tigroo974 si tu trouves d'où viens ton problème, merci de me le faire savoir pour que je puisse corriger cela pour les autres...

Merci @+ et bon dev

Commentaire de Unreal le 12/09/2005 18:36:50

je connaissais deja ce controle ;)

Commentaire de Renfield le 14/09/2005 09:34:26 administrateur CS

Sirocoo, il ne s'agit pas de réinventer la poudre.

Outre le coté experimental, et pour prouver que VB en est capable...

Ce controle offre d'interessantes possibilités.
Il ne s'agit pas de vouloir refaire un Explorateur 100% identique...(me trompe-je ?)

Ce controle est utile, en remplacement d'un DirListBox/DriveListBox et d'un FileListBox, qui datent un peu, et ne sont pas très ergonomiques.

Yomm, tu maîtrise ce code manifestement complètement (désormais ?), mes félicitations.

Commentaire de acecel le 12/10/2005 09:09:48

Ca a l'air pas mal!
Je n'ai pas encore eu le temps de regarder plus préçisement (j'en ai pas l'utilité pour le moment).
Mais je t'ai quand même noté 10/10.
;-)

Commentaire de JoBleu le 22/10/2005 03:56:45

J'ai essayé avec un groupe de projets, en ouvrant le projet dans l'IDE. Cette fois, je me retrouve à l'exécution avec une erreur 40004015, la classe est configurée comme un ID de sécurité différent de celui de l'appelant.

Que deux lignes de code à taper, tu disais ?

Commentaire de JoBleu le 22/10/2005 07:28:32

Coucou c'est encore moi !

En tout cas, ça marche, c'est même beau.

Une petite curiosité : si le treeview s'appelle TreeView1, le FullPath des noeuds ne comporte pas de barres inverses, alors que si il porte un autre nom, les barres inverses y sont. Donc, si on veut synchroniser deux treeviews, il vaut mieux les appeler TreeView2 et TreeView3, plutôt que TreeView1 et TreeView2, comme pas mal de monde aurait tendance à le faire.

Quand j'ai essayé de mettre quelque chose dans l'argument ExpandPath de la méthode Add, je me suis fait jeter (variable objet ou variable de bloc With non définie).

Qu'à cela ne tienne, j'ai pu initialiser après avoir affecté les clefs, mais j'ai dû oublier quelque chose quelque part, car VB a tendance à planter (la mémoire ne peut pas être "read"). Un truc que je n'ai pas déclaré ou pas libéré, peut-être ? Parfois j'ai la tête en l'air.

Dommage de ne pas avoir mis toutes les valeurs pour l'énumération TypeRoot, j'avais l'intention de travailler avec MenuDemarrer, MenuDemarrerAll, RepDemarrer, RepDemarrerAll. Pas grave, avec les valeurs numériques ça marche.

Attention : si la synchronisation entre TreeView2 et ListView2 fonctionne, pas celle entre TreeView3 et ListView3, du moins pas tant que je n'ai pas initialisé moi-même la propriété LinkedTo.

Un autre point auquel il faut faire attention, par code on doit pouvoir accéder à une branche qui n'est pas développée, donc la développer à cette occasion. Je me demande à quel point la procédure CreeBranche que je me suis cognée ci-dessous n'aurait pas eu sa place dans l'objet YommExplorer. Après tout, un composant, c'est à ça que ça sert :)



Bon, j'ai pris beaucoup de place sur cette page, le mal est fait, alors au point où j'en suis, peut-être autant essayer de faire avancer le Schmilblick ? Alors je mets le code de mon module ci-dessous, ça peut expliquer les causes de plantage, et surtout illustrer mon propos, ce qui il est vrai est davantage dans l'objet de la page.

J'ai mis la synchronisation de TreeView2 vers TreeView3, on aura deviné que dans le sens inverse le principe est le même.

J'ai fait un essai à l'instant, la synchronisation entre TreeView3 et ListView3 ne fonctionne pas franchement. J'en ai pourtant en principe pris soin à la fin de Form_Load.


Private Sub Form_Load()

    Call YommExplorer1.LVSub.Add(ListView2, lvwReport)
    Call YommExplorer1.LVSub.Add(ListView3, lvwReport)
    Call YommExplorer1.TVSub.Add(TreeView2, ListView2, 11, , True)
    Call YommExplorer1.TVSub.Add(TreeView3, ListView3, 22, , True)
YommExplorer1.TVSub.LinkedTo(TreeView3) = ListView3
End Sub



Private Sub TreeView2_GotFocus()
InitNoeuds 'nécessaire à cet endroit ?
           'à vérifier à tête reposée
End Sub

Private Sub InitNoeuds()
Dim Item As Node
Dim TV As Control
For Each TV In Me.Controls
    Debug.Print "=============================="
    Debug.Print TV.Name, TypeName(TV)
    If TypeName(TV) = "TreeView" Then
        For Each Item In TV.Nodes
            Item.Key = Item.FullPath
            Debug.Print Item.Key
        Next
    End If
Next
End Sub

Private Sub TreeView2_NodeClick(ByVal Node As ComctlLib.Node)
On Error Resume Next
Dim Item As Node
CreeBranche TreeView2.SelectedItem.FullPath, TreeView3
Me.YommExplorer1.TVSub.TVPath(TreeView3) = Me.YommExplorer1.TVSub.TVPath(TreeView2)
'En double emploi, ci-dessus ?
InitNoeuds
TreeView3.SelectedItem = TreeView3.Nodes(TreeView2.SelectedItem.Key)
End Sub

Private Sub TreeView3_NodeClick(ByVal Node As ComctlLib.Node)
On Error Resume Next
TreeView2.SelectedItem = TreeView2.Nodes(TreeView3.SelectedItem.Key)
TreeView2.SelectedItem.EnsureVisible
End Sub

Public Sub CreeBranche(ByVal Chemin As String, C As Control)
Dim Tableau() As String
Dim N As Integer
Dim TV As TreeView
Dim str As String
Dim strChemin As String

Set TV = C   'C'était pour le typage précoce
             'maintenant je le laisse (flemme)
Tableau = Split(Chemin, "\")
For N = LBound(Tableau) To UBound(Tableau)
    str = Tableau(N) 'oui on peut critiquer str
    If strChemin = "" Then
        strChemin = str
    Else
        strChemin = strChemin + "\" + str
    End If
    TV.Nodes(strChemin).Expanded = True
Next
End Sub

Commentaire de yomm le 24/10/2005 20:07:37

>>JoBleu
ha oui au fait, lorsque tu veux faire un expandpath et qu'un treeview est lié à un listview, il faut mettre le chemin dans les paramètres de la fonction TVSub.add car le treeview est prioritaire sur le listview (ça parait logique sachant que c'est sur lui qu'on crée le lien mais je préfère préciser)

en suite, en cour d'execution il faut utiliser la propriété TVPath.
exemple:
YommExplorer1.TVSub.TVPath(TreeView2) = "e:\sources\yommexplorer_ocx"

voilà , j'espère que tout cela répondra à tes problèmes...

@+ et bon dev

Commentaire de violent_ken le 31/10/2005 13:42:55

Euh moi çà marche pas... J'ai bien démarré le groupe de projet, mais çà me dit : "Impossible de définir le composant compatible : c:\documents...\YommExplorerOCX.ocx"

Je fait comment, là ? J'ai essayé de recompiler l'ocx, mais çà ne marche pas.
@+

Commentaire de DARKSIDIOUS le 31/10/2005 13:57:30 administrateur CS

Décoche la compatibilité (binaire ou des projets) dans les options du projet pour pouvoir recompiler l'ocx, et ensuite, remets là.

DarK Sidious

Commentaire de violent_ken le 31/10/2005 14:41:04

DarkSidious-->: -j'ai suivis ce que tu as dit, et après recompilation, "Impossible de recharger c:\doc....OCX.ocx".
                -Ensuite, la compatibilité binaire/projet est décochée par défaut, et quand je tente de la cocher : "Impossible de définir le composant compatible : c:\documents...\YommExplorerOCX.ocx"

JoBleu-->:     -les deux projets ne peuvent pas tourner ensemble, effectivement, mais ce n'est pas ce qui foire chez moi.
               -le composant YommExplorerOCX.ocx n'est pas chargé (bien qu'il apparaissent dans la barre d'outils, d'ailleurs en DOUBLE, avec la jolie bmp de Yomm :-)). Quand je le charge, çà me dit "nom de module, de projet... déjà utilisé". La premier composant Yommocx de la barre d'outils ne peut pas etre utilisé (nom deja utilisé), et le deuxième peut etre placé sur la form normalement
               -pas d'erreur 429
               -je suis l'admin de mon PC

-Quand je démarre le prog, çà me dit "type imcompatible à Call YommExplorer1.LVSub.Add(ListView1, lvwReport, "c:\")", ce qui est normal, puisque l'ocx n'est pas reconnu.

En fait, le problème vennait du fait que le composant APPARAIT dans la barre d'outils DEUX FOIS, bien qu'il NE SOIT PAS dans la liste des composants.
Alors j'ai bidoullié les *.vbp, et je suis arrivé à avoir DEUX fois l' ocx dans la barre d'outils, et le composant coché dans la liste des composants.
Ensuite j'ai enlevé tout les YommOCX de ma form, j'ai décoché le YommOCX (il ne me reste donc plus qu'UNE icone YommOCX dans les outils), et j'ai remis un YommOCX dans ma form.
C'est maintenant fonctionnel.

@+

Commentaire de violent_ken le 31/10/2005 15:02:22

Serait-il possible de pouvoir choisir d'afficher (ou non) les dossiers cachés, et aussi les dossiers systèmes ?
En tout cas, moi je dit bravo ! (10/10)
@+

Commentaire de violent_ken le 31/10/2005 16:03:25

DARKSIDIOUS --> désolé de te contredire, mais j'ai raison.
C'est bien un problème de CONCEPTION !!!
Il y a trois projets dans le *.zip (deux simples et un groupe de projets).
Quand on démarre un projet, il y a une erreur !! Et c'est valable POUR LES TROIS PROJETS !!
C'est normal pour les deux *.vbp, mais pas pour le *.vbg !!
Donc je ne suis pas fou, il y a bien un bug, non ??
Donc c'est pas moi qui ne sait pas me servir des fichiers fournis, ce sont les fichiers fournis qui ont un problème.

Pour corriger le bug, il faut donc :

-soit mettre une compatibilité bianire (dans YommExplorerOCX.vbp) sur le *.ocx et d'enregistrer le projet (inutile de recompiler quoi que ce soit)

-soit CORRIGER le BUG :
le fichier groupe incorpore en effet :
1) le projet de controle utilisateur (YommExplorerOCX.vbp)
2) le projet exemple (PrjTest.vbp)
Or le composant "yommexplorerocx.ocx" est ajouté au projet exemple. Ce qui signifie que le projet groupe  a à la fois le composant *.ocx, et à la fois le controle utilisateur. Ces derniers portant le même nom, cela ne peut pas fonctionner correctement : ils se retrouvent tout deux dans le même projet !
Il faut donc supprimer le composant *.ocx de la form de test (dans le projet de test), enlever la référence à l'ocx dans le projet de test, et ajouter sur la form du projet groupe, le control UTILISATEUR.  (par exemple)

DARKSIDIOUS, c'est pas parce que chez toi çà marche nickel qu'il n'y a pas de bug: je sais me servir d'un fichier *.vbp et d'un fichier *.vbg, et quand j'appuie sur F5 dans le *.vbg et que çà me sort une erreur, qu'on ne me dise pas qu'il n'y a pas de bug  !!
@+