Grâce à un CommonDialog, accédez facilement au programme que vous désirez.
Source / Exemple :
'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
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.