上传者: 24566073
|
上传时间: 2022-01-23 16:28:39
|
文件大小: 10KB
|
文件类型: -
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