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

Soyez le premier à donner votre avis sur cette source.

Vue 9 370 fois - Téléchargée 1 488 fois


Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
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
marc660 Messages postés 171 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 18 juillet 2007
24 juin 2006 à 20:54
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
yomm Messages postés 515 Date d'inscription dimanche 17 février 2002 Statut Membre Dernière intervention 10 mars 2008 3
30 nov. 2004 à 14:34
>>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...
cs_cricri67 Messages postés 3 Date d'inscription vendredi 24 janvier 2003 Statut Membre Dernière intervention 25 février 2005
30 nov. 2004 à 11:28
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 ??
yomm Messages postés 515 Date d'inscription dimanche 17 février 2002 Statut Membre Dernière intervention 10 mars 2008 3
30 nov. 2004 à 11:05
>>Micool :
le control avance doucement mais sûrement ;-)

>>cricri67
en fait tu as juste à faire :

FileExplorer.Path = "\\La_Machine\Repertoire\sousRepertoire"
S'inscrire maintenant

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.

Du même auteur (yomm)