Ocx drivelistbox, dirlistbox, filelistbox pour access

Soyez le premier à donner votre avis sur cette source.

Vue 15 334 fois - Téléchargée 1 416 fois

Description

Voici quelques sources permettant de voir comment créer des OCX et comment utiliser les DriveListBox & cie sous Access (Très utile!)
En passant, j'ai fait une petite source utilisant ces OCX et pour embellir le tout, j'y ai ajouté le WMP.dll de Windows Media Player 9.
Bien entendu, pour que tout cela fonctionne, il faut placer les OCX des 3 ListBox dans votre répertoire System32 et installer WMP 9 sur votre machine.
NB: J'ai créé cette source sous Win2000 et elle tourne sous Access2000.
PS: J'espère que ça vous sera utile :)

Source / Exemple :


'Exemple de création d'OCX à partir du contrôle DriveListBox sous VB6
 
'Création d'un évènement de l'ocx
Public Event AfterUpdate(Drive As String)
'Création d'une fonction de l'ocx
Public Function GetDrive() As String
    GetDrive = Drive1.Drive
End Function
'Autre fonction de l'ocx permettant de changer de lecteur
Public Sub ChangeDrive(Drv As String)
    Drive1.Drive = Drv
End Sub
'On indique dans quel cas utiliser l'évènement
Private Sub Drive1_Change()
    RaiseEvent AfterUpdate(Drive1.Drive)
End Sub
'On finalise la fonction afin qu'elle soit persistante
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    PropBag.ReadProperty "GetDrive"
    PropBag.ReadProperty "ChangeDrive"
End Sub
'Permet de changer la taille du control
Private Sub UserControl_Resize()
    Drive1.Width = UserControl.ScaleWidth
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "GetDrive", Drive1.Drive
    PropBag.WriteProperty "ChangeDrive", Drive1.Drive
End Sub

Conclusion :


Détails des fonctions des 3 OCX:
DriveListBox:
GetDrive 'Permet de donner le nom du lecteur en cours
ChangeDrive "D:" 'Permet de changer de lecteur
DirListBox:
GetDir 'Permet de donner le chemin du répertoire
ChangeDir "D:" 'Permet de changer le lecteur
FileListBox:
GetFile 'Affiche le chemin du fichier
ChangePath "Path" 'Change le chemin

PS: Pour qu'ils marchent les ocx doivent être enregistrés dans le registre.
Pour se faire, allez dans l'invite de commande MS-DOS et tapez:
regsvr32 fichier.ocx

Pour utiliser les fonctions, il faut les écrire comme une propriété.
Exemple si on prend le control DirListOcx et qu'on l'appelle Dir1
Pour obtenir le chemin en cours, on va écrire: Dir1.GetDir

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
vendredi 20 avril 2007
Statut
Membre
Dernière intervention
10 août 2008

vraiement, bravo
Messages postés
2
Date d'inscription
vendredi 24 août 2007
Statut
Membre
Dernière intervention
24 août 2007

Merci TBBUIM1,

cela fonctionne en passant le chemin en argument

BERNARDLEC
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
Il faut lire les commentaires et regarder l'exemple...
Toutes les propriétés ne sont pas implémentées
De plus elles sont à utiliser d'une manière spécifique

Pour changer le chemin (comme je l'ai spécifié dans le texte ci-dessus dans explication finale) il faut écrire par exemple
GetPath "C:\MonRépertoire"

Il ne faut pas utiliser l'ocx comme si c'était le control de VB6, ça n'a rien avoir... Il faut oublier les propriétés des controls d'origine de VB6 et voir dans la doc de l'ocx, lesquelles sont disponibles et la manière de les utiliser. Voir code, commentaires et tutoriaux sur les ocx en général
Messages postés
2
Date d'inscription
vendredi 24 août 2007
Statut
Membre
Dernière intervention
24 août 2007

J'utilise l'OCX filelistbox dans Access2003 et je ne parviens pas à changer le chemin.
Quand j'utilise l'argument fichiers.path, je reçois le message "Propriété ou méthode non gérée par cet objet"
Pourtant, si j'écrit recu fichiers.name, j'ai bien recu "fichiers"
Pourquoi n'ai-je pas accès à cette propriété ?
Messages postés
3
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
3 octobre 2005

j'ai utilisé les ocx dans excel
drivelistbox n'est activé que sur exit ?
comment rafraichir dir listbox, elle ne se rafraichi que quand je rentre dedans
peut-on filtrer les fichiers par une extension ?

je suis nouveau peut être ai-je mal programmé
Afficher les 8 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.