如何改变一个图形的实际大小？比如100*100改成120*120或者80*80的

[hotenM]

我说的是实际尺寸，就是我用IE打开就那么大，而不是显示


各位请赐教

[li_ping]

不明白你的意思.

[lxcc]

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

Private Sub Command1_Click()
Dim w As Integer, h As Integer
picture1.picture=loadpicture("picName")
w = Picture1.Width
h = Picture1.Height

StretchBlt Picture2.hdc, 0, 0, w * 1.2, h * 1.2, Picture1.hdc, 0, 0, w, h, vbSrcCopy
savepicture picture2.image ,"picName"

End Sub

自己改系数即可

[hotenM]

楼上果然高人