A voir également:
- Picturebox vb
- Vb.net picturebox - Meilleures réponses
- Vb.net picturebox image - Meilleures réponses
- 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)
- Trouver tous les pixels noire dans une image binaire trés grande ✓ - Forum - C# / .NET
- Très grandes images, qu'est ce qu'il faut utiliser ✓ - Forum - Visual Basic
- Faire défiler une grande image sur une TImage avec Scrollbar! ✓ - Forum - Delphi / Pascal
6 réponses
Gobillot
- Messages postés
- 3140
- Date d'inscription
- vendredi 14 mai 2004
- Statut
- Membre
- Dernière intervention
- 11 mars 2019
1) charger l'image en mémoire dans une StdPicture
2) faire une gestion d'erreur
3) enlever l'AutoRedraw pendant le chargement
Daniel
2) faire une gestion d'erreur
3) enlever l'AutoRedraw pendant le chargement
Daniel
brouvel
- Messages postés
- 6
- Date d'inscription
- lundi 11 juillet 2005
- Statut
- Membre
- Dernière intervention
- 11 juillet 2005
d'accord, je suis doué mais pas encore très bon pourrais-tu développer stp... avec exemple de code stp.
Gobillot
- Messages postés
- 3140
- Date d'inscription
- vendredi 14 mai 2004
- Statut
- Membre
- Dernière intervention
- 11 mars 2019
1) chargement en mé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
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
- Messages postés
- 6
- Date d'inscription
- lundi 11 juillet 2005
- Statut
- Membre
- Dernière intervention
- 11 juillet 2005
Très bien cela fonctionne mais pas complétement car il reconnait l'erreur pour la première image mais dès l'erreur suivant il ignore le On Error et le If Err = 481, pour palier je me suis dit qu'il faut peut être initialiser la boite erreur donc j'ai mis un pic(i) variable tableau mais pas de changement.... je ne comprend pas ??
Gobillot
- Messages postés
- 3140
- Date d'inscription
- vendredi 14 mai 2004
- Statut
- Membre
- Dernière intervention
- 11 mars 2019
Les erreurs suivantes, elles sont dans la même fonction ?
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
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