2 réponses
J'ai fais un petit visualisateur d'images et j'aimerai faire apparaître dans un Label sa taille en pixels -
Ci-dessous ce que j'applique mais la valeur qui apparait est fausse !
lblWith.Caption = Format(ScaleY(.Piccture(.Width, vbTwips, vbPixels), "###000")
-----------------------------------------------------------
Obj.ScaleMode = 3
'L'objet obj, contenant l'image (form ou picbox), est gradué en pixel
LblWith.Caption = Format(Image1.Width, "###000")
'Rempli le label avec la largeur en pixel au format "###000"
LblHeight.Caption = Format(Image1.Height, "###000")
'Rempli le label avec la Hauteur en pixel au format "###000"
j'espere que c'est bien ce que tu voulais.
Ci-dessous ce que j'applique mais la valeur qui apparait est fausse !
lblWith.Caption = Format(ScaleY(.Piccture(.Width, vbTwips, vbPixels), "###000")
-----------------------------------------------------------
Obj.ScaleMode = 3
'L'objet obj, contenant l'image (form ou picbox), est gradué en pixel
LblWith.Caption = Format(Image1.Width, "###000")
'Rempli le label avec la largeur en pixel au format "###000"
LblHeight.Caption = Format(Image1.Height, "###000")
'Rempli le label avec la Hauteur en pixel au format "###000"
j'espere que c'est bien ce que tu voulais.
