UN OCX FAÇON FILELISTBOX AVEC ICONES DE FICHIERS , MENU CONTEXTUEL ET RAFFRAICHI

Signaler
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
-
Messages postés
171
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
18 juillet 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/20714-un-ocx-facon-filelistbox-avec-icones-de-fichiers-menu-contextuel-et-raffraichissement-auto

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