Salut,
j'ai déjà posé la question, mais je pense avoir manqué de précision. Pour informations, j'ai déjà fait des recherches que j'ai testées.
si je pose la question, c'est que le forum est ma dernière solution
Je voudrais redimensionner une image en visual basic, mais, je n'ai pas de form, puisque c'est une DLL qui est censé faire cette manipulation.
J'ai eu cette solution :
Public 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
' ---Initialisation---
Zoom = 0.5
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
'66 Me.ScaleMode = vbPixels
Hauteur = CLng(Zoom * Picture1.Height)
Largeur = CLng(Zoom * Picture1.Width)
' ---Opération a effectuer : COPIER la bitmap de la zone d'image source---
With Picture2
.Width = Largeur
.Height = Hauteur
End With
Ret = StretchBlt(Picture2.hdc, 0, 0, Largeur, Hauteur, _
Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, _
SRCCOPY)
Picture2.Picture = Picture2.Image
L'erreur remontée par VB lorsque je fais :
sChemin = "c:\2.jpg"
Set Picture1 = LoadPicture(sChemin)
est :
Type incompatible
Avez vous une solution svp ?
