rodo22
-
20 juin 2001 à 22:43
buzydoudou
Messages postés50Date d'inscriptionmardi 24 août 2004StatutMembreDernière intervention28 avril 2005
-
26 avril 2005 à 20:37
Bonjour,
Comment peut-on controler l'annulation dans une boite de dialogue. Exemple : boite ouvrir => l'utilisateur clique sur annuler.
Comment faire pour que l'appli affiche un msgbox quelconque quand on clique sur annuler ?
On Error Resume Next
With CommonDialog1
.CancelError = True
'...
.ShowOpen
End With
If (Err.Number = cdlCancel) Then
MsgBox "L'usagé as annulé!"
'Else
End If
SiReUs
Messages postés2Date d'inscriptiondimanche 29 août 2004StatutMembreDernière intervention19 septembre 2004 19 sept. 2004 à 15:46
ou sinon tu as se code là aussi :
tu mets ds le bouton au autre qui vas te conduire a la fenetre du commondialog.
If vbCancel then Exit Sub
c tt :) mais fait attention a la palce que tu lui donne par rapport a commondialog1.Showopen ;)
exemple :
CommonDialog1.DialogTitle = "Open !!!!"""
CommonDialog1.CancelError = False
CommonDialog1.Filter = "*.mp3|*.mp3|" & "Tous (*.*)|*.*|"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Rs_RadioButton1.Caption = CommonDialog1.FileName
If vbCancel Then Exit Sub
End Sub
et voila aller a +
SiReUs
buzydoudou
Messages postés50Date d'inscriptionmardi 24 août 2004StatutMembreDernière intervention28 avril 2005 26 avril 2005 à 20:35
Le mieux c'est:
Private Sub Command1_Click 'On imagine un bouton nommé Command1 sur lequel on clique !
CommonDialog1.DialogTitle = "..." 'Nom de la boîte de dialogueCommonDialog1.Filter "..." 'Permet de limiter l'accès à certains types de fichiers. Exemple 'de syntaxe: CommonDialog1.Filter "Fichiers image|*.jpg;*.jpeg|Bitmaps (*.bmp) '|*.bmp"CommonDialog1.FilterIndex ... 'Index du filtre si CommonDialog1.FilterIndex 2, alors le 'filtre Bitmaps sera activé par défaut.
CommonDialog1.Flags = ... 'Propriétés de la boîte de dialogue
CommonDialog1.CancelError = True 'Initialisée à True, cette "fonction" permets de 'provoquer une erreur si l'utilisateur clique sur Annuler.
On Error GoTo Erreur 'En cas d'erreur on va à l'étiquette Erreur
CommonDialog1.ShowOpen 'On montre la boîte de dialogue
Text1.Text = "Le chemin du fichier sélectionné est: " + CommonDialog1.FileName + "." 'On 'montre le chemin du fichier sélectionné dans un textbox
GoTo Suite 'on va à l'étiquette Suite
Erreur: 'l'étiquette Erreur
Text1.Text = "Vous n'avez pas sélectionné de fichier !" '^^
Suite: 'l'étiquette suite
End Sub
J'ai essayer d'être le plus clair possible parce que, quand j'étais encore plus un noob que je le suis aujourd'hui, j'en avais marre de tomber sur des sources mal expliquées !!
Vous n’avez pas trouvé la réponse que vous recherchez ?