vb6获取一幅在PICTURE中打开的图像使用DIB方法进行放大、缩小。
代码示范了VB6如何调用函数对图像进行获取,放大,输出,还有完整的API定义和数据结构定义.
sub command1_click()
With picture1
.ScaleMode=3
.BorderStyle=0
DibGet .hdc,0,0,.scalewidth,.scaleheight
End With
CopyData InPutHei ,InPutWid
picture2.AutoRedraw=True
DibPut picture2.hdc
picture2.refresh
end sub
1