Bonjour,
Je voulais savoir comment on pouvais faire un programme de ce genre:
--------------------------------------------
'Quand on clic sur une commande alors l'imageN est remplac=E9 par
l'image N+1 qui sont contenue dans un m=EAme dossier
Public sub commande_click
N =3D N+1 'sachant que on declare precedement que n=3D1
Picture1.Picture =3D LoadPicture("\chemin\pictureN.jpg")
End Sub
--------------------------------------------
De plus, mon programme modifie le contraste, je voudrais que toutes
les deux images on incr=E9mente la valeur du contraste...mais comment
indiquer dans "commande_click" ce changement toutes les 2
utilisations?
Je cherchais un comparateur If n=3D pair then contraste =3D contraste+5
masi je vois pas comment lui faire d=E9terminer si N est pair ou impair
Bonjours , je voudrais amélioré mon programme en rajoutant une fonction qui stop le programme si il n'y a plus d'image!
je me demandais comment on pouvais faire appel à une fonction "erreur" du genre:
------------------------------------------------ If pictureR= erreur57 then End Sub end If ------------------------------------------------- erreur57>> quand il ne trouve pas l'image(ici plus d'image) avec le lien
j'ai chercher dans l'aide VB6 et la faq mais j'ai rien trouver :(
Merci d'avance, Cordialement kariar
Bonjours ,
je voudrais amélioré mon programme en rajoutant une fonction qui stop
le programme si il n'y a plus d'image!
je me demandais comment on pouvais faire appel à une fonction "erreur"
du genre:
------------------------------------------------
If pictureR= erreur57 then End Sub
end If
-------------------------------------------------
erreur57>> quand il ne trouve pas l'image(ici plus d'image) avec le
lien
j'ai chercher dans l'aide VB6 et la faq mais j'ai rien trouver :(
Bonjours , je voudrais amélioré mon programme en rajoutant une fonction qui stop le programme si il n'y a plus d'image!
je me demandais comment on pouvais faire appel à une fonction "erreur" du genre:
------------------------------------------------ If pictureR= erreur57 then End Sub end If ------------------------------------------------- erreur57>> quand il ne trouve pas l'image(ici plus d'image) avec le lien
j'ai chercher dans l'aide VB6 et la faq mais j'ai rien trouver :(
Merci d'avance, Cordialement kariar
Vincent Guichard
Bonjour,
On Error Goto ... pour installer le gestionnaire d'erreur. If Err.Number = ? then ... Pour gérer les erreurs.
Attention, la gestion des erreurs dans Vb est locale (c'est à dire qu'elle ne gère les erreurs qu'au niveau auquel est défini le gestionnaire).
Par exemple:
Public Sub FaireQuelqueChose() 'Installe la gestion des erreurs On Error GoTo GestionErreur
'L'ouverture déclenche l'erreur 53 Open "FichierQuiNExistePas" For Input As #1
'Pas d'erreur Debug.Print "Pas d'erreur" 'On sort de la fonction avant le gestionnaire d'erreur Exit Sub 'Gestionnaire d'erreur GestionErreur: If Err.Number = 53 Then Debug.Print "Erreur 53: " & Err.Description Else Debug.Print "Autre erreur (" & Err.Number & "): " & Err.Description End If 'On continue la fonction ou pas? Dim res As Integer res = MsgBox("Continuer l'execution? (Oui pour reprendre à la ligne fautive, Non pour passer à la ligne suivante et Annuler pour quitter la procédure", vbYesNoCancel) If res = vbYes Then Resume ElseIf res = vbNo Then Resume Next End If End Sub
Bonjour,
On Error Goto ... pour installer le gestionnaire d'erreur.
If Err.Number = ? then ... Pour gérer les erreurs.
Attention, la gestion des erreurs dans Vb est locale (c'est à dire
qu'elle ne gère les erreurs qu'au niveau auquel est défini le gestionnaire).
Par exemple:
Public Sub FaireQuelqueChose()
'Installe la gestion des erreurs
On Error GoTo GestionErreur
'L'ouverture déclenche l'erreur 53
Open "FichierQuiNExistePas" For Input As #1
'Pas d'erreur
Debug.Print "Pas d'erreur"
'On sort de la fonction avant le gestionnaire d'erreur
Exit Sub
'Gestionnaire d'erreur
GestionErreur:
If Err.Number = 53 Then
Debug.Print "Erreur 53: " & Err.Description
Else
Debug.Print "Autre erreur (" & Err.Number & "): " & Err.Description
End If
'On continue la fonction ou pas?
Dim res As Integer
res = MsgBox("Continuer l'execution? (Oui pour reprendre à la ligne
fautive, Non pour passer à la ligne suivante et Annuler pour quitter la
procédure", vbYesNoCancel)
If res = vbYes Then
Resume
ElseIf res = vbNo Then
Resume Next
End If
End Sub
On Error Goto ... pour installer le gestionnaire d'erreur. If Err.Number = ? then ... Pour gérer les erreurs.
Attention, la gestion des erreurs dans Vb est locale (c'est à dire qu'elle ne gère les erreurs qu'au niveau auquel est défini le gestionnaire).
Par exemple:
Public Sub FaireQuelqueChose() 'Installe la gestion des erreurs On Error GoTo GestionErreur
'L'ouverture déclenche l'erreur 53 Open "FichierQuiNExistePas" For Input As #1
'Pas d'erreur Debug.Print "Pas d'erreur" 'On sort de la fonction avant le gestionnaire d'erreur Exit Sub 'Gestionnaire d'erreur GestionErreur: If Err.Number = 53 Then Debug.Print "Erreur 53: " & Err.Description Else Debug.Print "Autre erreur (" & Err.Number & "): " & Err.Description End If 'On continue la fonction ou pas? Dim res As Integer res = MsgBox("Continuer l'execution? (Oui pour reprendre à la ligne fautive, Non pour passer à la ligne suivante et Annuler pour quitter la procédure", vbYesNoCancel) If res = vbYes Then Resume ElseIf res = vbNo Then Resume Next End If End Sub
LE TROLL
Bonjour,
Alors:
sub ta_procedure() On Error Goto Erreur ' ici juste avant ce qui produit l'erreur ' ton instruction qui fait des erreurs................. exit sub ' sortie normale ' erreur: If Err = 57 then On Error Resume Next Exit Sub else msgbox Err Endif exit sub
Le principe c'est implicitement, si erreuer (Err) <> 0 goto (va à) adresse (label) avec ":", puis traitement des erreurs suivant le numéro, remise à 0, et redirection si besoin...
Mais tu as plus court si tu es certain de tes erreurs: Tu mets simplement:
On Error Resume Next
Juste avant la ligne qui produit l'erreur... ce qui veut dire, ignorer les erreurs, mais si tu as une autre erreur plus grave, elle sera ignorée et plantera ou pas le programme...
' tape devant Err <F1>, tu auras tout le libellé...
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ a écrit dans le message de news:
Bonjours , je voudrais amélioré mon programme en rajoutant une fonction qui stop le programme si il n'y a plus d'image!
je me demandais comment on pouvais faire appel à une fonction "erreur" du genre:
------------------------------------------------ If pictureR= erreur57 then End Sub end If ------------------------------------------------- erreur57>> quand il ne trouve pas l'image(ici plus d'image) avec le lien
j'ai chercher dans l'aide VB6 et la faq mais j'ai rien trouver :(
Merci d'avance, Cordialement kariar
Bonjour,
Alors:
sub ta_procedure()
On Error Goto Erreur ' ici juste avant ce qui produit l'erreur
' ton instruction qui fait des erreurs.................
exit sub ' sortie normale
'
erreur:
If Err = 57 then
On Error Resume Next
Exit Sub
else
msgbox Err
Endif
exit sub
Le principe c'est implicitement, si erreuer (Err) <> 0 goto (va à) adresse
(label) avec ":", puis traitement des erreurs suivant le numéro, remise à 0,
et redirection si besoin...
Mais tu as plus court si tu es certain de tes erreurs:
Tu mets simplement:
On Error Resume Next
Juste avant la ligne qui produit l'erreur... ce qui veut dire, ignorer les
erreurs, mais si tu as une autre erreur plus grave, elle sera ignorée et
plantera ou pas le programme...
' tape devant Err <F1>, tu auras tout le libellé...
--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
<latouffe59@gmail.com> a écrit dans le message de news:
1178282064.867975.307220@u30g2000hsc.googlegroups.com...
Bonjours ,
je voudrais amélioré mon programme en rajoutant une fonction qui stop
le programme si il n'y a plus d'image!
je me demandais comment on pouvais faire appel à une fonction "erreur"
du genre:
------------------------------------------------
If pictureR= erreur57 then End Sub
end If
-------------------------------------------------
erreur57>> quand il ne trouve pas l'image(ici plus d'image) avec le
lien
j'ai chercher dans l'aide VB6 et la faq mais j'ai rien trouver :(
sub ta_procedure() On Error Goto Erreur ' ici juste avant ce qui produit l'erreur ' ton instruction qui fait des erreurs................. exit sub ' sortie normale ' erreur: If Err = 57 then On Error Resume Next Exit Sub else msgbox Err Endif exit sub
Le principe c'est implicitement, si erreuer (Err) <> 0 goto (va à) adresse (label) avec ":", puis traitement des erreurs suivant le numéro, remise à 0, et redirection si besoin...
Mais tu as plus court si tu es certain de tes erreurs: Tu mets simplement:
On Error Resume Next
Juste avant la ligne qui produit l'erreur... ce qui veut dire, ignorer les erreurs, mais si tu as une autre erreur plus grave, elle sera ignorée et plantera ou pas le programme...
' tape devant Err <F1>, tu auras tout le libellé...
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ a écrit dans le message de news:
Bonjours , je voudrais amélioré mon programme en rajoutant une fonction qui stop le programme si il n'y a plus d'image!
je me demandais comment on pouvais faire appel à une fonction "erreur" du genre:
------------------------------------------------ If pictureR= erreur57 then End Sub end If ------------------------------------------------- erreur57>> quand il ne trouve pas l'image(ici plus d'image) avec le lien
j'ai chercher dans l'aide VB6 et la faq mais j'ai rien trouver :(
Merci d'avance, Cordialement kariar
latouffe59
Merci beaucoup à tout les deux pour cette réponse...
J'ai bien compris et adapté vos explications à mon programme :D
Cordialement, latouffe59
Merci beaucoup à tout les deux pour cette réponse...
J'ai bien compris et adapté vos explications à mon programme :D
