Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3144 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  CommonDialog

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

CommonDialog

n°742848
fabien
Vive la super 5 !
Posté le 28-05-2004 à 11:32:54  profilanswer
 

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 ♥
mood
Publicité
Posté le 28-05-2004 à 11:32:54  profilanswer
 

n°743120
fabien
Vive la super 5 !
Posté le 28-05-2004 à 12:59:30  profilanswer
 

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 ♥
n°743258
drasche
Posté le 28-05-2004 à 13:28:07  profilanswer
 

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)
n°743270
fabien
Vive la super 5 !
Posté le 28-05-2004 à 13:30:27  profilanswer
 

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 ♥
n°743299
drasche
Posté le 28-05-2004 à 13:34:52  profilanswer
 

ç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)
n°743315
fabien
Vive la super 5 !
Posté le 28-05-2004 à 13:39:51  profilanswer
 

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 ♥
n°743332
drasche
Posté le 28-05-2004 à 13:44:56  profilanswer
 

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)

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  CommonDialog

 

Sujets relatifs
CommonDialog : multisélection[vb6] probleme avec un commondialog
Plus de sujets relatifs à : CommonDialog

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.056 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)