Accueil > > > COMMONDIALOG
COMMONDIALOG
Information sur la source
Description
Grâce à un CommonDialog, accédez facilement au programme que vous désirez.
Source
- 'ShowColor
- 'ShowFont
- 'ShowHelp
- 'ShowOpen
- 'ShowPrinter
- 'ShowSave
- 'L 'exemple suivant utilise le contrôle CommonDialog ainsi que les
- 'méthodes pour afficher les boîtes de dialogues communes.
- 'Pour tester cet exemple, collez le code dans la section des
- 'déclarations d'une feuille contenant des contrôles
- 'CommandButton,
- 'OptionButton (affectez la valeur 0 à sa propriété Index) et
- 'CommonDialog.
-
-
- Private Sub Form_Paint()
- Static FlagFormPainted As Integer
- ' Lorsque la feuille s'affiche pour la première fois,
- If FlagFormPainted <> True Then
- For i = 1 To 5
- Load Option1(i) ' ajoute cinq boutons d'option au
- ' groupe de contrôles.
- Option1(i).Top = Option1(i - 1).Top + 350
- Option1(i).Visible = True
- Next i
- Option1(0).Caption = "Ouvrir" ' Associe une légende à
- Option1(1).Caption = "Enregistrer" ' à chaque bouton d'option.
- Option1(2).Caption = "Couleurs"
- Option1(3).Caption = "Polices"
- Option1(4).Caption = "Imprimante"
- Option1(5).Caption = "Aide"
-
- Command1.Caption = "Afficher Boîte de Dialogue" ' Affecte une étiquette au
- ' bouton de commande.
- FlagFormPainted = True ' La feuille est entièrement
- ' affichée.
-
- End If
- End Sub
-
- Private Sub Command1_Click()
-
- If Option1(0).Value Then ' Si le bouton d'option Ouvrir est
- CommonDialog1.ShowOpen ' sélectionné, affiche la boîte de
-
- ElseIf Option1(1).Value Then ' dialogue commune Ouvrir. Dans les autres cas,
- CommonDialog1.ShowSave ' affiche la boîte de dialogue commune Enregistrer.
-
- ElseIf Option1(2).Value Then ' ou la boîte de dialogue commune Couleurs
- CommonDialog1.ShowColor
-
- ElseIf Option1(3).Value Then ' Ou encore, si la propriété Flags
- CommonDialog1.Flags = cdlCFBoth ' a l'une des valeurs cdlCFBoth,
- ' cdlCFPrinterFonts ou
- ' cdlCFScreenFonts, utilise
- ' la méthode ShowFont.
- CommonDialog1.ShowFont ' Affiche la boîte de dialogue commune Polices.
-
- ElseIf Option1(4).Value Then ' Ou encore,
- CommonDialog1.ShowPrinter ' affiche la boîte de dialogue commune Imprimante.
-
- ElseIf Option1(5).Value Then ' Ou
- CommonDialog1.HelpFile = "VB.HLP"
- CommonDialog1.HelpCommand = cdlHelpContents
- CommonDialog1.ShowHelp ' affiche le sommaire de l'aide de Visual Basic.
-
- End If
- End Sub
-
-
-
- Private Sub cmdQuitter_Click()
- End
- End Sub
-
-
'ShowColor
'ShowFont
'ShowHelp
'ShowOpen
'ShowPrinter
'ShowSave
'L 'exemple suivant utilise le contrôle CommonDialog ainsi que les
'méthodes pour afficher les boîtes de dialogues communes.
'Pour tester cet exemple, collez le code dans la section des
'déclarations d'une feuille contenant des contrôles
'CommandButton,
'OptionButton (affectez la valeur 0 à sa propriété Index) et
'CommonDialog.
Private Sub Form_Paint()
Static FlagFormPainted As Integer
' Lorsque la feuille s'affiche pour la première fois,
If FlagFormPainted <> True Then
For i = 1 To 5
Load Option1(i) ' ajoute cinq boutons d'option au
' groupe de contrôles.
Option1(i).Top = Option1(i - 1).Top + 350
Option1(i).Visible = True
Next i
Option1(0).Caption = "Ouvrir" ' Associe une légende à
Option1(1).Caption = "Enregistrer" ' à chaque bouton d'option.
Option1(2).Caption = "Couleurs"
Option1(3).Caption = "Polices"
Option1(4).Caption = "Imprimante"
Option1(5).Caption = "Aide"
Command1.Caption = "Afficher Boîte de Dialogue" ' Affecte une étiquette au
' bouton de commande.
FlagFormPainted = True ' La feuille est entièrement
' affichée.
End If
End Sub
Private Sub Command1_Click()
If Option1(0).Value Then ' Si le bouton d'option Ouvrir est
CommonDialog1.ShowOpen ' sélectionné, affiche la boîte de
ElseIf Option1(1).Value Then ' dialogue commune Ouvrir. Dans les autres cas,
CommonDialog1.ShowSave ' affiche la boîte de dialogue commune Enregistrer.
ElseIf Option1(2).Value Then ' ou la boîte de dialogue commune Couleurs
CommonDialog1.ShowColor
ElseIf Option1(3).Value Then ' Ou encore, si la propriété Flags
CommonDialog1.Flags = cdlCFBoth ' a l'une des valeurs cdlCFBoth,
' cdlCFPrinterFonts ou
' cdlCFScreenFonts, utilise
' la méthode ShowFont.
CommonDialog1.ShowFont ' Affiche la boîte de dialogue commune Polices.
ElseIf Option1(4).Value Then ' Ou encore,
CommonDialog1.ShowPrinter ' affiche la boîte de dialogue commune Imprimante.
ElseIf Option1(5).Value Then ' Ou
CommonDialog1.HelpFile = "VB.HLP"
CommonDialog1.HelpCommand = cdlHelpContents
CommonDialog1.ShowHelp ' affiche le sommaire de l'aide de Visual Basic.
End If
End Sub
Private Sub cmdQuitter_Click()
End
End Sub
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
CommonDialog!!!!!!!!!!!!!!!!!!!!!!!!!!! [ par waimea64 ]
Salut je soufhaite modifier la boite de dialogue Ouvrir "CommonDialog1.ShowOpen" afin d'obtenir un boite parcourir. Pour cela il faut simplement modif
impression/boite de dialogue [ par brokenbracelet ]
salu jaimerais savoir comment afficher une boite de dialogue permettant a un utilisateur de choisir des parametres d impression ?!
PB avec des boites de dialogue [ par JazzBerri ]
A partir d'une boite de dialogue il faut que j'accède a une autre boite de dialogue a l'aide d'un controle (suivant et précédent). Mais je n'ai aucune
CommonDialog ShowOpen [ par Morpho ]
Bonjour à tousJ'utilise un commondialog ( cdgFichier ) avec le .flags cdlOFNFileMustExist qui control l'existance du fichier et pose la question de sa
Imprimer une page web [ par elmonkey ]
Salut,J'explique mon cas.Pour sortir une commande sur papier, je crée un XML puis ensuite j'affiche la page HTML dans un controle brwWebBrowser.Le but
boite de dialogue [ par chtayti ]
afficher une boite de dialogue tout au long d'une execution d'une macro
Boîte de dialogue. [ par Globig ]
Bonjour.Je suis débutant et je rencontre un problème avec les boîtes de dialogue.J'ai mis le contrôle CommonDialog dans ma feuille et j'ai tapé common
Boite de dialogue [ par djCourtin ]
salutje suis nouveaufo m'aiderje suis sur access 97je veux utiliser les boites de dialogue windows et la liste des "autres outils" est videJ'ai chargé
Eviter la boite de dialogue avec PDF995 [ par kinouseb ]
Bonjour,J'utilise PDF995 pour capturer l'impression "papier" vers un fichier .PDFMais lorsque je fais printer.enddoc, le logiciel PDF995 ouvre une boi
URGENT: sauver un fichier xls avec commondialog .showsave [ par cyanv ]
CyanvJe n'arrive à sauvegarder ou créer un fichier excel; la boîte de dailog s'ouvre, mais n'enregistre pas mon fichier...Voilà une parlie de mon code
|
Derniers Blogs
GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
ACCES ODBCACCES ODBC par yannickcottin
Cliquez pour lire la suite par yannickcottin
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|