如何使用PaintPicture在一个PictureBox控件里实现图片的放大缩小

Question

如何使用PaintPicture在一个PictureBox控件里实现图片的放大缩小
是不是必须得要2个互相转换？？

Answer 1

对 pic1源图像  pic2 目标 pic2.paintpicture pic1.picture,0,0,pic1.scalewidth*2,pic1.scaleheight*2  放大一倍  依次类推
用paintpicture方法 

Answer 2

一个 picture 也行的  pic1.paintpicture pic1.picture,0,0,pic1.scalewidth*2,pic1.scaleheight*2  放大一倍  依次类推
用paintpicture方法 

Answer 3

yinkehui(二氧化碳) 你的方法我也试过
但是他的图片大小没跟着变大，只是像素变了
我是想象PS里的图片变大，像素变大，也就是整个图片变大啊

Answer 4

Private Sub Command1_Click()
   Picture1.PaintPicture Picture1, 0, 0, 2 * a, 2 * b
End Sub
Private Sub Command2_Click()
   a = Picture1.ScaleWidth
   b = Picture1.ScaleHeight
    Picture1.Height = 2 * Picture1.Height
    Picture1.Width = 2 * Picture1.Width
End Sub
这段语句我必须先点击Command2再点击Command1才能实现图象的放大，怎样才能把这两部分合并成一部分湖者说一个步骤完成，而不是现在的2个步骤

Answer 5

Private Sub Command2_Click()
Dim a As Long, b As Longa = Picture1.ScaleWidth
b = Picture1.ScaleHeight
Picture1.Height = 2 * Picture1.Height
Picture1.Width = 2 * Picture1.Width
Picture1.PaintPicture Picture1, 0, 0, 2 * a, 2 * bEnd Sub
'为代码太啰嗦了

Answer 6

这样试试 重画以后 pic2大小 随着图片大小显示，然后  保存 SavePicture Pic2.Image, App.Path & "\picture" 保存到磁盘上  或者 放到内存上  这样 像素就增加了，你再 load 上来  或许能行