Positionement d'une image dans une picurebox

Net1dsang Messages postés 35 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 11 août 2010 - 7 sept. 2004 à 11:46
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 7 sept. 2004 à 15:52
J'ai une picturebox et une image. mais je ne veux pas que l'image s'affiche a partir du coin haut/gauche mais a partir du point haut+ qqchose /gauche + qquchose...

si qq'un sais comment faire ....

Un clavier AZERTY en vaut 2

4 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
7 sept. 2004 à 11:56
Places un contrôle Image dans une PictureBox,
tapes ce code et observe

Private Sub Form_Load()
Picture1.Left = 100
Picture1.Top = 100
Image1.Top = 100
Image1.Left = 100
End Sub

Les coordonnées de l'image sont calculées à partie du coin supérieur gauche de la pictureBox quand tu utilises une image dans une PictureBox.

Manu
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
7 sept. 2004 à 12:58
Ou alors, utilise la fonction PaintPicture qui te permet de positionner l'image aux coordonnées voulues, et même la redimensionner si tu le veux.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
0
Net1dsang Messages postés 35 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 11 août 2010
7 sept. 2004 à 13:31
merci c bon

Un clavier AZERTY en vaut 2
0
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
7 sept. 2004 à 15:52
Voici une petite fonction vite faite qui te permet de charger une image dans un picturebox en faisant un strech de l'image a la taille du picturebox, mais surtout de definir une bordure transparente autour de l'image !!!

Function ChargeImage(Destination As PictureBox, bordure As Integer, path As String)
Dim pic As StdPicture
Set pic = LoadPicture(path)
Destination.AutoRedraw = True
Destination.Cls
Destination.PaintPicture pic, bordure, bordure, Destination.ScaleWidth - bordure * 2, Destination.ScaleHeight - bordure * 2
End Function


Pour l'utiliser dans ton code, exemple :
ChargeImage Picture1, 100, "c:\image.jpg"


Voila ++

Ps: tu peu aussi la modifier afin de définir une bordure de taille differente pour le bas droite etc.... la je l'ai fait uniforme...
0
Rejoignez-nous