Image trop grande [Résolu]
- Image trop grande
- Déplacer une image trop grande dans un picturebox trop petit » Codes sources - Visual Basic / VB.NET (Control)
- Etoile coupante image très grande!!! » Codes sources - Graph (PHOTOSHOP : Formes)
- Delphi/Directx : Plus d'image en grande résolution » Forum - Delphi / Pascal
- Image trop grande » Forum - PHP
- Galerie Flash/XML - Image démesurément grande » Forum - Flash
6 réponses
2) faire une gestion d'erreur
3) enlever l'AutoRedraw pendant le chargement
Daniel
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
si la fonction se termine (Exit Sub) la gestion d'erreur sera réinitialisée au prochain appel.
si c'est dans une boucle, faut éliminer l'erreur en faisant un Resume Nest ou Resume Label en fin de boucle
Daniel
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.