CHARGEMENT IMAGE DS UN PICTUREBOX (REDIMENTIONEMENT,PROPORTION,CENTRAGE)

Signaler
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007
-
codea
Messages postés
94
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
6 août 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8181-chargement-image-ds-un-picturebox-redimentionement-proportion-centrage

codea
Messages postés
94
Date d'inscription
dimanche 9 mai 2004
Statut
Membre
Dernière intervention
6 août 2006

Public Sub ChargerImages(Prefix As String, Count As Integer, ByRef Pbox() As StdPicture, Optional picType As String) If picType "" Then picType "jpg"
On Error Resume Next
' index 0 pas utilisé
ReDim Pbox(Count)
For i = 1 To Count
Set Pbox(i) = New StdPicture
Set Pbox(i) = LoadPicture(Prefix & Format(i, "0000") & "." & picType)
Next i
End Sub
cs_ciram
Messages postés
2
Date d'inscription
mardi 22 mai 2007
Statut
Membre
Dernière intervention
22 mai 2007

bonjour,
merci pour le code mais je suis archi debutant et je ne sais pas si je peux l'intégrer sous vb6? si oui comment faire dans une form existante.
Merci d'avance
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

ou alors a = LoadPicture("c:\a.jpg").Width
cs_OphidiaN
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007

ou bien tu peux proceder comme ça:

Dim Image As Picture
Set Image=Loadpicture(.....)

et là tu as les prop Image.Width et Height.... le tout sans controle

@++
cs_OphidiaN
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007

ouais ya ça sur vbaccelerator je crois (pour travailler sur une image sans controle....) mais bon...