Redimensionner une image (Me.Picture)

Question

Bonjour,



j'ai une image que je charge dynamiquement en faisant : Me.Picture = loadPicture(cheminImage)

J'aimerais pouvoir la redimensionner "&#224; ma guise", comment puis-je faire ?

J'ai essay&#233; : Me.Picture.Width = Me.Picture.Width / 2 (pareil pour Height) et ca ne fonctionne pas !!!



Merci d'avance

guilleto · Answer

Salut &#224; toi, &#212; programmeur !

MaPicture.move Gauche,Haut,Largeur,Hauteur

Tu n'as plus qu'&#224; param&#232;trer avec les valeurs que tu veux !!

Et voil&#224; !

Bonne prog
@+

Olivier

cs_ymerej · Answer

Merci gars.

Ca change bien le Height et le Width (je fais un Debug.print avant et
apres et je vois que ca l'a bien modifi&#233;) mais a l'ecran ca ne change
rien et je ne comprend pas pourquoi. Tu n'aurais pas une id&#233;e ? Peut
etre une propri&#233;t&#233; de la pictureBox a modifier ?

Merci d'avance

guilleto · Answer

Salut,

Essaye d'enlever la propri&#233;t&#233;  AutoResize et donc de la mettre &#224; False, en revanche laisse la propri&#233;t&#233; AutoRedraw &#224; True !

Et normalement cela devrait &#234;tre bon !

@+

Bonne Prog

Olivier

cs_ymerej · Answer

Oui j'ai pens&#233; tout de suite &#224; &#231;&#224; :

AutoSize &#224; false

AutoRedraw &#224; true



et pourtant ca ne fonctionne toujours pas, je comprend pas sniff sniff

cs_ymerej · Answer

Bon en fait si ca marche, la pictureBox (le controle) est bien modifi&#233;
mais c'est l'image a l'interieur qui n'est pas redimensionn&#233;e en fait.

Il y a bien possibilit&#233; de redimensionner l'image a l'interieur en fonction du pictureBox ? SI oui comment faire stp ?



Merci encore

cs_ymerej · Answer

Et je suis en train de me demander, là il s'agit d'une pictureBox mais j'ai aussi un Me.Picture (d'une Form MDI) a redimensionner et là le .Move ne fonctionne pas je suppose ? Existe t'il une méthode pour redimensionner un Me.Picture ? Car sinon c'est même pas la peine de tenter quoi que ce soit car il faut à tout prix que les deux soit redimensionnés...

Merci d'avance
Je m'en vais du boulot là.
J'espere avoir une réponse pour demain matin, ca serait cool, en tout cas bonne soirée @+

Gobillot · Answer

pour une image il y a la propri&#233;t&#233; Stretch.

pour la Forme ou une PictureBox, il y a la fonction PaintPicture, mais il faut d'abord que l'image ai &#233;t&#233; charg&#233;e auparavant.

il y a aussi les API's qui le font.


Daniel

cs_ymerej · Answer

Peux tu m'indiquer les API à utiliser STP ?
Et sinon pour mon image qui est chargée en "fond d'ecran" (i.e dans le Me.Picture), comment la redimensionner ?

cs_ymerej · Answer

Bon du coup j'ai remplacé mes pictureBox par des Image en utilisant la methode Move et ca va bien mieux car l'image à l'interieur s'ajuste automatiquement donc mon probleme est résolu à 50%.
En effet, il me reste à trouver comment redimensionner mon image chargée en fond d'ecran (Me.Picture de ma MDI), utilisation d'une API peut etre ?

Gobillot · Answer

Dim pic As StdPicture

Dim Sw  As Long

Dim Sh  As Long

Dim Dw  As Long

Dim Dh  As Long



'charger l'image quelque part

Set pic = LoadPicture("c:\...\NomduFichier.bmp")



'retrouver ses dimensions

Sw = ScaleX(pic.Width, vbHimetric, Me.ScaleMode)

Sh = ScaleY(pic.Height, vbHimetric, Me.ScaleMode)



'calculer les nouvelles dimensions

If Sh / Sw > Me.ScaleHeight / Me.ScaleWidth Then

   Dh Me.ScaleHeight: Dw Me.ScaleHeight * Sw / Sh

   Else

   Dw Me.ScaleWidth: Dh Me.ScaleWidth * Sh / Sw

   End If

   

'copier l'image quelque part

Me.PaintPicture pic, (Me.ScaleWidth - Dw) / 2, (Me.ScaleHeight - Dh) / 2, Dw, Dh


Daniel

cs_ymerej · Answer

Merci Daniel mais mon "Me" est un form MDI et je n'ai donc apparement pas acces à la méthode PaintPicture...Sniff Sniff

Gobillot · Answer

ben tu met une PictureBox, apparence Flat , BorderStyle &#224; z&#233;ro et m&#234;me taille que la Forme.

c'est possible ou pas ?





L'API en question c'est StretchBlt, fonctionne de la m&#234;me mani&#232;re que
PaintPicture, un peu plus rapide certes, mais &#224; mon avis moins
performant que PaintPicture dans le cas de r&#233;duction.



Private Declare Function StretchBlt Lib "gdi32"
(ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As
Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long,
ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long,
ByVal dwRop As Long) As Long


Daniel

cs_ymerej · Answer

Et non ca marche pas car en fait j'ai besoin que mes fenetres filles soit au dessus de l'image (et donc de la pictureBox) car l'image sert en quelque sorte de fond d'ecran à la maniere d'un bureau Windows.
Est t'il possible de faire çà avec une pictureBox ? (Question : pourquoi je n'arrive pas à dessiner un contrôle Image dans ma fenetre MDI ?)

Merci beaucoup beaucoup d'avance

Redimensionner une image (Me.Picture)

13 réponses

Discussions similaires