COOL FILEBOX : EXPLORATEUR DE FICHIERS & DOSSIERS : VERSION 1.3

cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
- 28 juin 2002 à 18:34
cs_cyriloo
Messages postés
60
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007
- 19 avril 2007 à 13:53
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/3810-cool-filebox-explorateur-de-fichiers-dossiers-version-1-3

cs_cyriloo
Messages postés
60
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007

19 avril 2007 à 13:53
C'est terrible bravo !

Seulement :

- Commment faire pour avoir un évenement NodeClick en DoubleClick??
- Comment faire pour ouvrir ou fermer des nodes ( eg : pour avoir des nodes d'ouverts dès le form load si par exemple on doit chercher un fichier dans le même dossier. )

Si tu as une réponse ca seria cool !
fullmounthy
Messages postés
17
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
13 janvier 2005

13 janv. 2005 à 23:54
si quelq'un a quelque chose du style pour .NET j suis preneur car l integration ne se fait pas....
caci dit c est exelent.. c est ce que je cherchait ;)
cs_exatex
Messages postés
7
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
4 novembre 2009

16 mars 2004 à 08:10
Ton OCX est tres bien, mais helas il manque (pour moi) la possibilité de cocher des dossiers (selection de dossiers). Je vais le rajouter a ton source, et te le faire passer une fois terminé, tu en fera se que tu veus.
bedelaitre
Messages postés
3
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
6 février 2004

8 déc. 2003 à 15:54
Bon, je viens de récupérer le source, et j'ai été obligé de la modifer. J'utilise le Shell Aston à la place de Explorer. Et j'ai un problème avec la fonction Extract_IconeName car parfois les icones ne sont pas dans des exe ou des dll. J'ai donc modifier le code comme suit Ò

---------------------------

Private Sub Extract_IconeName(ByVal Key As String, ByRef Dll_Name As String, ByRef Dll_Number As Long)

Dim str_Icone As String
Dim str_IconeNum As String
Dim lng_Icone As Long

' On récupère le nom de l'icone ainsi que le numéro
'--------------------------------------------------

str_Icone = GetKeyValue(HKEY_CURRENT_USER, Key, "")
If str_Icone vbNullString Then str_Icone GetKeyValue(HKEY_LOCAL_MACHINE, Key, "")

If str_Icone = vbNullString Then
If Key ICN_POSTE_TRAVAIL Then str_Icone "%SystemRoot%Explorer.exe,0"
If Key ICN_MES_DOCUMENTS Then str_Icone "mydocs.dll,0"
If Key ICN_FAVORIS_RESEAU Then str_Icone "%SystemRoot%system32shell32.dll,17"
If Key ICN_FOLDER Then str_Icone "%SystemRoot%System32shell32.dll,3"
If Key ICN_HARD_DRIVE Then str_Icone "%SystemRoot%System32shell32.dll,8"
End If

str_Icone = Transforme_SystemFolder(str_Icone)

' On extrait le numéro de l'icone
'--------------------------------

If str_Icone <> "" Then
If InStr(1, str_Icone, ",") > 0 Then
str_IconeNum = Right$(str_Icone, Len(str_Icone) - InStr(1, str_Icone, ","))
str_Icone = Left$(str_Icone, InStr(1, str_Icone, ",") - 1)
If IsNumeric(str_IconeNum) Then
lng_Icone = CLng(str_IconeNum)
Else
lng_Icone = 0
End If
Else
lng_Icone = 0
End If
Else
str_Icone = "Shell32.dll"
lng_Icone = 1
End If

' On retourne le résultat
'------------------------

Dll_Name = str_Icone
Dll_Number = lng_Icone

End Sub
cs_bbernard
Messages postés
7
Date d'inscription
vendredi 26 juillet 2002
Statut
Membre
Dernière intervention
11 octobre 2003

11 oct. 2003 à 08:54
Je viens de telecharger la source de LEPECQMI mais lorsque j'essaye, j'ai un message d'erreur : Erreur de compilation "Type defini par l'utilisateur non defini". J'ai donc recreer un projet avec cet OCX mais lorsque je l'enregistre et je le rouvre... Meme probleme.
Qu'ai je pu oublier ??

Merci.
Afficher les 22 commentaires