Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui
permet à ce contrôle de prendre la taille de son contenant.
Mais comment faire l'inverse, adapter le contenant à la taille du
contrôle ? Une sorte de propriété Stretched.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrice Henrio
Patrice Henrio a écrit :
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
J'ai trouvé. Il suffit d'utiliser l'API StretchBlt
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
Patrice Henrio a écrit :
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui
permet à ce contrôle de prendre la taille de son contenant.
Mais comment faire l'inverse, adapter le contenant à la taille du
contrôle ? Une sorte de propriété Stretched.
Merci.
J'ai trouvé. Il suffit d'utiliser l'API StretchBlt
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
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
J'ai trouvé. Il suffit d'utiliser l'API StretchBlt
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
LE TROLL
Et puis t'as aussi trouvé le meilleur moyen d'avoir une réponse :o)
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "Patrice Henrio" a écrit dans le message de news: O4G% | Patrice Henrio a écrit : | > Bonjour, | > | > Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui | > permet à ce contrôle de prendre la taille de son contenant. | > Mais comment faire l'inverse, adapter le contenant à la taille du | > contrôle ? Une sorte de propriété Stretched. | > | > Merci. | J'ai trouvé. Il suffit d'utiliser l'API StretchBlt | | 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
Et puis t'as aussi trouvé le meilleur moyen
d'avoir une réponse :o)
--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Patrice Henrio" <patrice.henrio@laposte.net> a
écrit dans le message de news:
O4G%232FLxIHA.5996@TK2MSFTNGP04.phx.gbl...
| Patrice Henrio a écrit :
| > Bonjour,
| >
| > Tout le monde connait en VB6 la propriété
autosize d'un pictureBox qui
| > permet à ce contrôle de prendre la taille de
son contenant.
| > Mais comment faire l'inverse, adapter le
contenant à la taille du
| > contrôle ? Une sorte de propriété Stretched.
| >
| > Merci.
| J'ai trouvé. Il suffit d'utiliser l'API
StretchBlt
|
| 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
Et puis t'as aussi trouvé le meilleur moyen d'avoir une réponse :o)
-- Romans, logiciels, email, site personnel http://irolog.free.fr/joe.htm ------------------------------------------------------------------------------------ "Patrice Henrio" a écrit dans le message de news: O4G% | Patrice Henrio a écrit : | > Bonjour, | > | > Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui | > permet à ce contrôle de prendre la taille de son contenant. | > Mais comment faire l'inverse, adapter le contenant à la taille du | > contrôle ? Une sorte de propriété Stretched. | > | > Merci. | J'ai trouvé. Il suffit d'utiliser l'API StretchBlt | | 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
Patrick JONIEC
J'utilise la mise à l'échelle suivante :
ImaArticlePhoto.Stretch = False ImaArticlePhoto.Picture = LoadPicture(TxtArticleNomPhoto.Text) If ImaArticlePhoto.Height / 3135 > ImaArticlePhoto.Width / 3975 Then ImaArticlePhoto.Width = ImaArticlePhoto.Width / (ImaArticlePhoto.Height / 3135) ImaArticlePhoto.Height = 3135 Else ImaArticlePhoto.Height = ImaArticlePhoto.Height / (ImaArticlePhoto.Width / 3975) ImaArticlePhoto.Width = 3975 End If
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
J'utilise la mise à l'échelle suivante :
ImaArticlePhoto.Stretch = False
ImaArticlePhoto.Picture = LoadPicture(TxtArticleNomPhoto.Text)
If ImaArticlePhoto.Height / 3135 > ImaArticlePhoto.Width / 3975 Then
ImaArticlePhoto.Width = ImaArticlePhoto.Width /
(ImaArticlePhoto.Height / 3135)
ImaArticlePhoto.Height = 3135
Else
ImaArticlePhoto.Height = ImaArticlePhoto.Height /
(ImaArticlePhoto.Width / 3975)
ImaArticlePhoto.Width = 3975
End If
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news:uEY$BvKxIHA.4848@TK2MSFTNGP05.phx.gbl...
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui
permet à ce contrôle de prendre la taille de son contenant.
Mais comment faire l'inverse, adapter le contenant à la taille du contrôle
? Une sorte de propriété Stretched.
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
Patrice Henrio
Patrick JONIEC a écrit :
J'utilise la mise à l'échelle suivante :
ImaArticlePhoto.Stretch = False ImaArticlePhoto.Picture = LoadPicture(TxtArticleNomPhoto.Text) If ImaArticlePhoto.Height / 3135 > ImaArticlePhoto.Width / 3975 Then ImaArticlePhoto.Width = ImaArticlePhoto.Width / (ImaArticlePhoto.Height / 3135) ImaArticlePhoto.Height = 3135 Else ImaArticlePhoto.Height = ImaArticlePhoto.Height / (ImaArticlePhoto.Width / 3975) ImaArticlePhoto.Width = 3975 End If
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et j'ai déposé le source à cette adresse :
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news:uEY$BvKxIHA.4848@TK2MSFTNGP05.phx.gbl...
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui
permet à ce contrôle de prendre la taille de son contenant.
Mais comment faire l'inverse, adapter le contenant à la taille du
contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech
Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut
déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et
j'ai déposé le source à cette adresse :
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et j'ai déposé le source à cette adresse :
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et j'ai déposé le source à cette adresse :
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news:uEY$BvKxIHA.4848@TK2MSFTNGP05.phx.gbl...
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui
permet à ce contrôle de prendre la taille de son contenant.
Mais comment faire l'inverse, adapter le contenant à la taille du
contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech
Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut déformer
soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et
j'ai déposé le source à cette adresse :
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et j'ai déposé le source à cette adresse :
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et j'ai déposé le source à cette adresse :
C'est vrai. En fait, c'est une Image que j'utilise avec la propriété stretch ... Petite erreur de ma part
Patrick
En fait j'ai trouvé la méthode qui remplace
Soit une Picture1 et une picture2 Pour remplir la Picture2 avec l'image de la picture1, il suffit d'écrire Picture2.paintPicture Picture1.picture,0,0,Picture2.width,Picture2.height
De plus contrairement à ce que j'ai dit, StretchBlt fonctionne même avec une image cachée ou hors écran. En fait il ne faut pas oublier de mettre la propriété Autodraw de l'image à true pour que l'opération souhaitée soit visible. Comme la méthode paintPicture fait exactement ce que je voulais faire pas programmation, j'ai fait retirer le source http://www.vbfrance.com/codes/STRECH-SUR-PICTUREBOX_46858.aspx
Patrick JONIEC a écrit :
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news:%23MLWTmRxIHA.1936@TK2MSFTNGP04.phx.gbl...
Patrick JONIEC a écrit :
J'utilise la mise à l'échelle suivante :
ImaArticlePhoto.Stretch = False
ImaArticlePhoto.Picture = LoadPicture(TxtArticleNomPhoto.Text)
If ImaArticlePhoto.Height / 3135 > ImaArticlePhoto.Width / 3975 Then
ImaArticlePhoto.Width = ImaArticlePhoto.Width /
(ImaArticlePhoto.Height / 3135)
ImaArticlePhoto.Height = 3135
Else
ImaArticlePhoto.Height = ImaArticlePhoto.Height /
(ImaArticlePhoto.Width / 3975)
ImaArticlePhoto.Width = 3975
End If
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message
de news:uEY$BvKxIHA.4848@TK2MSFTNGP05.phx.gbl...
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox
qui permet à ce contrôle de prendre la taille de son contenant.
Mais comment faire l'inverse, adapter le contenant à la taille du
contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech
Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut
déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox
et j'ai déposé le source à cette adresse :
C'est vrai.
En fait, c'est une Image que j'utilise avec la propriété stretch ...
Petite erreur de ma part
Patrick
En fait j'ai trouvé la méthode qui remplace
Soit une Picture1 et une picture2
Pour remplir la Picture2 avec l'image de la picture1, il suffit d'écrire
Picture2.paintPicture Picture1.picture,0,0,Picture2.width,Picture2.height
De plus contrairement à ce que j'ai dit, StretchBlt fonctionne même avec
une image cachée ou hors écran. En fait il ne faut pas oublier de mettre
la propriété Autodraw de l'image à true pour que l'opération souhaitée
soit visible.
Comme la méthode paintPicture fait exactement ce que je voulais faire
pas programmation, j'ai fait retirer le source
http://www.vbfrance.com/codes/STRECH-SUR-PICTUREBOX_46858.aspx
"Patrice Henrio" a écrit dans le message de news:uEY$
Bonjour,
Tout le monde connait en VB6 la propriété autosize d'un pictureBox qui permet à ce contrôle de prendre la taille de son contenant. Mais comment faire l'inverse, adapter le contenant à la taille du contrôle ? Une sorte de propriété Stretched.
Merci.
Les pictureBox n'admettent pas la propriété Strech Par ailleurs l'API STrechtBlt nécessite que l'image que l'on veut déformer soit visible à l'écran.
Je viens de réaliser cette opération de streching pour uen pictureBox et j'ai déposé le source à cette adresse :
C'est vrai. En fait, c'est une Image que j'utilise avec la propriété stretch ... Petite erreur de ma part
Patrick
En fait j'ai trouvé la méthode qui remplace
Soit une Picture1 et une picture2 Pour remplir la Picture2 avec l'image de la picture1, il suffit d'écrire Picture2.paintPicture Picture1.picture,0,0,Picture2.width,Picture2.height
De plus contrairement à ce que j'ai dit, StretchBlt fonctionne même avec une image cachée ou hors écran. En fait il ne faut pas oublier de mettre la propriété Autodraw de l'image à true pour que l'opération souhaitée soit visible. Comme la méthode paintPicture fait exactement ce que je voulais faire pas programmation, j'ai fait retirer le source http://www.vbfrance.com/codes/STRECH-SUR-PICTUREBOX_46858.aspx
