Image trop grandeRésolu

Question

Bonjour &#224; tous,
Voila mon pb. J'importe des images en wmf dans des picturesbox mais quand une image est trop grand g un message erreur 481. g les codes pour interroger la taille de l'image et ne pas la charger si elle est trop grande mais manque de pot il faut charger l'image pour avoir sa taille. La boucle est boucl&#233;. Que faut-il que je fasse ?? Si quelq'un &#224; une solution ??

Gobillot · Accepted Answer

1) charger l'image en m&#233;moire dans une StdPicture



2) faire une gestion d'erreur



3) enlever l'AutoRedraw pendant le chargement

Daniel

brouvel · Answer

d'accord, je suis dou&#233; mais pas encore tr&#232;s bon pourrais-tu d&#233;velopper stp... avec exemple de code stp.

Gobillot · Answer

1)  chargement en m&#233;moire



Dim pic   As StdPicture

Dim TailleX As Long

Dim TailleY As Long



Set pic = LoadPicture(nf1)

TailleX = ScaleX(pic.Width, vbHimetric, vbPixels)

TailleY = ScaleY(pic.Height, vbHimetric, vbPixels)





2) gestion d'erreur



On Error GoTo Error

Picture1.Picture = LoadPicture(Nom)

- - - - - - -

Exit Sub



Error:

    If Err = 481 Then

       MsgBox "Erreur Chargement Image"

       Exit Sub

       End If

    MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Open Erreur"



End Sub




Daniel

brouvel · Answer

Tr&#232;s bien cela fonctionne mais pas compl&#233;tement car il reconnait l'erreur pour la premi&#232;re image mais d&#232;s l'erreur suivant il ignore le On Error et le If Err = 481, pour palier je me suis dit qu'il faut peut &#234;tre initialiser la boite erreur donc j'ai mis un pic(i) variable tableau mais pas de changement.... je ne comprend pas ??

Gobillot · Answer

Les erreurs suivantes, elles sont dans la m&#234;me fonction ?



si la fonction se termine (Exit Sub) la gestion d'erreur sera r&#233;initialis&#233;e au prochain appel.

si c'est dans une boucle, faut &#233;liminer l'erreur en faisant un Resume Nest ou Resume Label en fin de boucle

Daniel

brouvel · Answer

Merci bcp cela fonctionne il me reste plus qu'a bien placer le Resume next. Encore merci...