Un ocx façon filelistbox avec icones de fichiers , menu contextuel et raffraichissement auto

Soyez le premier à donner votre avis sur cette source.

Vue 8 860 fois - Téléchargée 1 385 fois


Description

voilà après le DirExplorer permettant une arborescence des fichiers avec les icones et tout et tout voici le FileExplorer ..sorte de FileListBox avec icones de fichiers...l'intéret de cette version? la rapidité!!!

Conclusion :


c'est ici k'on met les remerciments? et bien merci encore a Renfield et oui c'est son source qui m'avait permis de faire le DirExplorer et c'est le même source que j'ai utilisé pour le FileExplorer don cvoilà merci a toi!

c'est ici aussi qu'on met les futur update lol? et bien a l'avenir euh............et bien je vais faire une meilleur gestion du click lol sur un sel complet de la ligne histoire que ce soit plus beau ....

bon un peu de sérieux......(il est 2:30 et je viens de faire ça dans la soirée, vous pouvez m'excuser non?) j'espère que cela vous servira

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
171
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
18 juillet 2007

Bonjour,

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
Messages postés
171
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
18 juillet 2007

bonjour,

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
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
3
>>cricri67

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...
Messages postés
3
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
25 février 2005

OK pour le FileExplorer !!
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 ??
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
3
>>Micool :
le control avance doucement mais sûrement ;-)

>>cricri67
en fait tu as juste à faire :

FileExplorer.Path = "\\La_Machine\Repertoire\sousRepertoire"
Afficher les 69 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.