Comment tester qu'une affectation est en erreur ou pas dans un IF
(Sans faire un On Error goto, car dans ce cas la procédure d'erreur se
trouve à la fin)
If (Image1.Picture = LoadPicture(texte0)) Is On Error Then
Image1.Picture = ImageList.ListImages.Item(1).Picture
Else
Image1.Picture = LoadPicture(texte0)
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE TROLL
Bonjour, non, tu n'e pas obligé d'aller à la fin pour les erreur, mai ensuite il faut sauter "goto" dans tous les sens... ---------
"Shewy80" a écrit dans le message de news: cq1etm$50m$
Bonjour à tous!
Comment tester qu'une affectation est en erreur ou pas dans un IF (Sans faire un On Error goto, car dans ce cas la procédure d'erreur se trouve à la fin)
If (Image1.Picture = LoadPicture(texte0)) Is On Error Then Image1.Picture = ImageList.ListImages.Item(1).Picture Else Image1.Picture = LoadPicture(texte0) End If
Merci à vous !
Bonjour, non, tu n'e pas obligé d'aller à la fin pour les erreur,
mai ensuite il faut sauter "goto" dans tous les sens...
---------
"Shewy80" <noMail@noSpam.fr> a écrit dans le message de news:
cq1etm$50m$1@apollon.grec.isp.9tel.net...
Bonjour à tous!
Comment tester qu'une affectation est en erreur ou pas dans un IF
(Sans faire un On Error goto, car dans ce cas la procédure d'erreur se
trouve à la fin)
If (Image1.Picture = LoadPicture(texte0)) Is On Error Then
Image1.Picture = ImageList.ListImages.Item(1).Picture
Else
Image1.Picture = LoadPicture(texte0)
End If
Bonjour, non, tu n'e pas obligé d'aller à la fin pour les erreur, mai ensuite il faut sauter "goto" dans tous les sens... ---------
"Shewy80" a écrit dans le message de news: cq1etm$50m$
Bonjour à tous!
Comment tester qu'une affectation est en erreur ou pas dans un IF (Sans faire un On Error goto, car dans ce cas la procédure d'erreur se trouve à la fin)
If (Image1.Picture = LoadPicture(texte0)) Is On Error Then Image1.Picture = ImageList.ListImages.Item(1).Picture Else Image1.Picture = LoadPicture(texte0) End If
Merci à vous !
Hervé
Salut, Et avec On Error Resume Next ?
'évite l'erreur et teste On Error Resume Next Image1.Picture = LoadPicture(Text0) If Err.Number <> 0 Then Image1.Picture = ImageList.ListImages.Item(1).Picture End If 'annule le gestionnaire On Error GoTo 0
Hervé.
"Shewy80" a écrit dans le message news: cq1etm$50m$
Bonjour à tous!
Comment tester qu'une affectation est en erreur ou pas dans un IF (Sans faire un On Error goto, car dans ce cas la procédure d'erreur se trouve à la fin)
If (Image1.Picture = LoadPicture(texte0)) Is On Error Then Image1.Picture = ImageList.ListImages.Item(1).Picture Else Image1.Picture = LoadPicture(texte0) End If
Merci à vous !
Salut,
Et avec On Error Resume Next ?
'évite l'erreur et teste
On Error Resume Next
Image1.Picture = LoadPicture(Text0)
If Err.Number <> 0 Then
Image1.Picture = ImageList.ListImages.Item(1).Picture
End If
'annule le gestionnaire
On Error GoTo 0
Hervé.
"Shewy80" <noMail@noSpam.fr> a écrit dans le message news:
cq1etm$50m$1@apollon.grec.isp.9tel.net...
Bonjour à tous!
Comment tester qu'une affectation est en erreur ou pas dans un IF
(Sans faire un On Error goto, car dans ce cas la procédure d'erreur se
trouve à la fin)
If (Image1.Picture = LoadPicture(texte0)) Is On Error Then
Image1.Picture = ImageList.ListImages.Item(1).Picture
Else
Image1.Picture = LoadPicture(texte0)
End If
'évite l'erreur et teste On Error Resume Next Image1.Picture = LoadPicture(Text0) If Err.Number <> 0 Then Image1.Picture = ImageList.ListImages.Item(1).Picture End If 'annule le gestionnaire On Error GoTo 0
Hervé.
"Shewy80" a écrit dans le message news: cq1etm$50m$
Bonjour à tous!
Comment tester qu'une affectation est en erreur ou pas dans un IF (Sans faire un On Error goto, car dans ce cas la procédure d'erreur se trouve à la fin)
If (Image1.Picture = LoadPicture(texte0)) Is On Error Then Image1.Picture = ImageList.ListImages.Item(1).Picture Else Image1.Picture = LoadPicture(texte0) End If
