CHARGEMENT IMAGE DS UN PICTUREBOX (REDIMENTIONEMENT,PROPORTION,CENTRAGE)
cs_OphidiaN
Messages postés235Date d'inscriptionmercredi 4 avril 2001StatutMembreDernière intervention 9 novembre 2007
-
8 août 2003 à 09:34
codea
Messages postés94Date d'inscriptiondimanche 9 mai 2004StatutMembreDernière intervention 6 août 2006
-
18 sept. 2008 à 03:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
codea
Messages postés94Date d'inscriptiondimanche 9 mai 2004StatutMembreDernière intervention 6 août 2006 18 sept. 2008 à 03:46
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és2Date d'inscriptionmardi 22 mai 2007StatutMembreDernière intervention22 mai 2007 22 mai 2007 à 18:15
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és1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 29 août 2005 à 18:13
ou alors a = LoadPicture("c:\a.jpg").Width
cs_OphidiaN
Messages postés235Date d'inscriptionmercredi 4 avril 2001StatutMembreDernière intervention 9 novembre 2007 15 août 2003 à 00:58
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és235Date d'inscriptionmercredi 4 avril 2001StatutMembreDernière intervention 9 novembre 2007 8 août 2003 à 09:34
ouais ya ça sur vbaccelerator je crois (pour travailler sur une image sans controle....) mais bon...
18 sept. 2008 à 03:46
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
22 mai 2007 à 18:15
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
29 août 2005 à 18:13
15 août 2003 à 00:58
Dim Image As Picture
Set Image=Loadpicture(.....)
et là tu as les prop Image.Width et Height.... le tout sans controle
@++
8 août 2003 à 09:34