CommonDialog

CommonDialog - VB/VBA/VBS - Programmation

Marsh Posté le 28-05-2004 à 11:32:54    

salut, j'utilise des commondialog pour ouvrir / enregistrer un fichier, mais le probleme c'est que j'aimerai bien savoir si la personne a appuyé dans le commondialog sur le bouton "ouvrir" ou bien sur le bouton "annuler".
Parce que si je selectionne le fichier, et qu'ensuite j'appuye "annuler", le CommonDialog1.FileName ne sera pas vide et ca va m'ouvrir le fichier.
 
Voici mon code pour ouvrir:
 

Code :
  1. CommonDialog1.Filter = " jackpot (*.jkp) | *jkp"
  2. CommonDialog1.ShowOpen
  4. If (FileExists(CommonDialog1.FileName) And CommonDialog1.FileName <> "" ) Then
  5. MsgBox ("on ouvre le fichier" )
  6.     'on active le bouton enregistrer
  7.     mnuEnregistrerItem.Enabled = True
  8.     'on ouvre le fichier
  9.     Open CommonDialog1.FileName For Input As #fichier
  10.     If Not EOF(fichier) Then Line Input #fichier, ligne
  11.     'MsgBox ligne
  12.             ligne = Split(ligne, ";" )
  13.             mise = ligne(0)
  14.             labelMise = mise
  15.             Label6.Caption = ligne(1)
  16.                
  17.     'On ferme le fichier
  18.     Close fichier
  19. End If


 
je ne sais pas quoi mettre dans le if si la personne a appuyé sur le bouton annulé :/
 
merci d'avance :jap:


---------------
✈ Découvre le HFRcoin ✈ - smilies ♥
Reply

Marsh Posté le 28-05-2004 à 11:32:54   

Reply

Marsh Posté le 28-05-2004 à 12:59:30    

j'ai essayé avec CancelError mais ca ne marche pas :(
 

Code :
  1. CommonDialog1.ShowOpen
  2. erreur = CommonDialog1.CancelError
  3. MsgBox (erreur)


 
ca me renvoie toujours false, meme si j'appuie sur le bouton annulé :/
 
comment ca se fait ?
 
le code en entier:
 

Code :
  1. MsgBox (CommonDialog1.CancelError)
  2. CommonDialog1.Filter = " jackpot (*.jkp) | *jkp"
  3. On Error Resume Next
  4. CommonDialog1.ShowOpen
  6. erreur = CommonDialog1.CancelError
  7. MsgBox (erreur)
  8. If (FileExists(CommonDialog1.FileName) And CommonDialog1.FileName <> "" And CommonDialog1.CancelError = False) Then
  9.     MsgBox ("on ouvre" )
  10.     'on active le bouton enregistrer
  11.     mnuEnregistrerItem.Enabled = True
  12.     'on ouvre le fichier
  13.     Open CommonDialog1.FileName For Input As #fichier
  14.     If Not EOF(fichier) Then Line Input #fichier, ligne
  15.     'MsgBox ligne
  16.             ligne = Split(ligne, ";" )
  17.             mise = ligne(0)
  18.             labelMise = mise
  19.             Label6.Caption = ligne(1)
  20.                
  21.     'On ferme le fichier
  22.     Close fichier
  23. End If


Message édité par fabien le 28-05-2004 à 13:00:14

---------------
✈ Découvre le HFRcoin ✈ - smilies ♥
Reply

Marsh Posté le 28-05-2004 à 13:28:07    

Perso je change la propriété CancelError à True pour déclencher une erreur si Cancel est cliqué, ainsi je suis toujours sûr de mon coup ;)
 
(le numéro de l'erreur est prédéfini: 32755 donc tu peux la tester sans problème)
 
Un bon conseil: le On Error Resume Next, c'est MAL. Très mal.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 28-05-2004 à 13:30:27    

drasche a écrit :

Perso je change la propriété CancelError à True pour déclencher une erreur si Cancel est cliqué, ainsi je suis toujours sûr de mon coup ;)
 
(le numéro de l'erreur est prédéfini: 32755 donc tu peux la tester sans problème)
 
Un bon conseil: le On Error Resume Next, c'est MAL. Très mal.

oui mais comment savoir si cancel a été cliqué ? :??:


---------------
✈ Découvre le HFRcoin ✈ - smilies ♥
Reply

Marsh Posté le 28-05-2004 à 13:34:52    

ça déclenche une erreur, mais tu ne le verras pas si tu gardes On Error Resume Next en début de code (à évite absolument d'ailleurs!)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 28-05-2004 à 13:39:51    

drasche a écrit :

ça déclenche une erreur, mais tu ne le verras pas si tu gardes On Error Resume Next en début de code (à évite absolument d'ailleurs!)

oué mais moi quand ca declanche une erreur, le programme plante et il s'arrete, donc je ne peux faire aucun test pour connaitre la valeur de l'erreur .
Donc faut s'y prendre comment pour tester ? et en enlevant le on error resume next ca plante, et quand je le remet ben ca plante plus.


---------------
✈ Découvre le HFRcoin ✈ - smilies ♥
Reply

Marsh Posté le 28-05-2004 à 13:44:56    

cherche "on error" dans la FAQ, ya un exemple.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed