COOL FILEBOX : EXPLORATEUR DE FICHIERS & DOSSIERS : VERSION 1.3

Signaler
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Messages postés
60
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007
-
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

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

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 !
Messages postés
17
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
13 janvier 2005

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 ;)
Messages postés
7
Date d'inscription
jeudi 22 janvier 2004
Statut
Membre
Dernière intervention
4 novembre 2009

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.
Messages postés
3
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
6 février 2004

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
Afficher les 22 commentaires