Problème de taille Picture PaintPicture

Question

Bonjour,

j'ai beau lire les topics, les tuttos et des bouquins, je ne trouve pas comment forcer une taille a une image ...

voici ce que j'ai :

Dim MonImage2 As String
    Dim Lmax2 As Variant
    Dim Hmax2 As Variant
    
    MonImage2 = TxtImgApr.Text 'ici j'ai mis la fonction parcourir de windows pour chercher une image
    
    'Utilsation de picture2 afin de recup&#233;rer la r&#233;solution de l'image
    Picture2.AutoSize = True
    Picture2.ScaleMode = vbPixels
    Picture2.Visible = False
    Picture2.Picture = LoadPicture(MonImage2)
    Largeur = Picture2.ScaleWidth
    Hauteur = Picture2.ScaleHeight
    
    'Initialisation d'un rapport largeur/hauteur
    Ratio2 = Largeur / Hauteur
    
    Lmax2 = 3000
    Hmax2 = Lmax2 * Ratio2
    
    PicTmp2.PaintPicture Picture2.Picture, 0, 0, Lmax2, Hmax2  'ici je tente de charger l'image redimentionn&#233;e par Lmax2 et Hmax2 dans le PictureBox PicTmp2 mais il reste vide, c'est pourtant la syntaxe indiqu&#233;e dans mon bouquin ...

Renfield · Answer

surement une histroire d'autoredraw...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

romainbiston · Answer

J'ai chang&#233; de False &#224; True pour chaque picturebox ca ne changer rien, en fait pour le message pr&#233;c&#233;dent j'ai oubli&#233; de pr&#233;ciser que j'avait un message d'erreur : Erreur '481' image incorrecte et la valeur de pictmp2 est de 0 (je suppose donc que la variable pictmp2 n'obtient pas l'image redimentionn&#233;e).

Renfield · Answer

chez moi, j'ai deux picturebox :

Picture2, qui contient une image
picture1, qui ne contient pas d'image, est est plus grande que picture2.

j'ai mis ce code dans Command1_Click, et ca fonctionne...


    Dim MonImage2 As String
    Dim Lmax2 As Variant
    Dim Hmax2 As Variant
   
    'Utilsation de picture2 afin de recupérer la résolution de l'image
    Picture2.AutoSize = True
    Picture2.ScaleMode = vbPixels
    Picture2.Visible = False
    'Picture2.Picture = LoadPicture(MonImage2)
    Largeur = Picture2.ScaleWidth
    Hauteur = Picture2.ScaleHeight
   
    'Initialisation d'un rapport largeur/hauteur
    Ratio2 = Largeur / Hauteur
   
    Lmax2 = 3000
    Hmax2 = Lmax2 * Ratio2
    
    Picture1.PaintPicture Picture2.Picture, 0, 0, Lmax2, Hmax2

romainbiston · Answer

y'a un truc de bizard! j'ai refais exactement le meme que toi et tjs pareil! erreur 481 image incorrecte, il n'y aurait pas un composant a rajouter ou autre manip a faire? je suis en VB6 sous XP.

merci qd meme pour tes reponses!

Problème de taille Picture PaintPicture

4 réponses

Discussions similaires