Ocx drivelistbox, dirlistbox, filelistbox pour access

Télécharger le projet
Commenter

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

Codes Sources

A voir également

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 (tbbuim1)