在线等待..关于图像处理

Question

paintpicture缩小尺寸拷贝不就行了？

Answer 1

PictureBox.PaintPicture PictureBox.PictureBox, 0, 0, PictureBox.ScaleWidth, PictureBox.ScaleHeight

Answer 2

Private Sub Command1_Click() '在picture1里面放一幅图片
    Picture1.PaintPicture Picture1.Picture, 0, 0, 1000, 1000
End Sub

Answer 3

zyl910 大哥:
我的代码是这样的:
Picture1(i).PaintPicture Picture1(i).Picture, 0, 0,Picture1(i).ScaleWidth, Picture1(i).ScaleHeightpicture1(i)是控件数组！
但怎么不行？

Answer 4

xxlroad(土八路)
我试验也不行阿!

Answer 5

Private Sub Command1_Click() '在picture1里面放一幅比较大的图片图片
Dim i As Integer
    i = 0
    Picture1(i).PaintPicture Picture1(i).Picture, 0, 0, 1000, 1000
End Sub

Answer 6

先读取一副图片！Set PictureBox.Picture=LoadPicture(文件名)
PictureBox.PaintPicture PictureBox.PictureBox, 0, 0, PictureBox.ScaleWidth, PictureBox.ScaleHeight