Ocx pour placer ses contrôles dans un commondialog

Description

J'ai fait ce contrôle en partant d'une source déjà existante sur vbfrance (dont j'ai malheureusement oublié l'auteur, je ferai plus attention la prochaine fois, c'est promis) qui permettait de visionner des fichiers images dans une boîte de dialogue d'ouverture de fichiers, je l'ai donc modifié pour que l'on puisse mettre ses propres contrôles.

Source / Exemple :


'In the ZIP

Conclusion :


Pour faire fonctionner ce contrôle, il suffit de le placer sur une feuille, et de mettre vos contrôles dedans (c'est un conteneur, comme une frame), ensuite il fonctionne comme un commondialog classique:
CmDialog1.Filter = "Tous les fichiers(*.*)|*.*" 'Filtre
CmDialog1.ShowOpen ou CmDialog1.ShowSave 'Affiche la boîte de dialogue
La position des contrôles est contrôlée par la propriété ControlsPosition
Enfin l'évément FileChange est déclanché chaque fois qu'un fichier est sélectionné dans la boîte de dialogue.

Le programme d'exemple n'est pas de moi, c'est un programme qui enregistre en jpeg, j'ai juste modifié les commondialogs classiques. (voir capture)
Il faudra peut-être enregistrer l'ocx dans le registre avant de lancer l'exemple.

Voila j'espére ne rien avoir oublié.
A+ et bonne prog !

Codes Sources

A voir également

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.