要求简单点的

谢谢！

长宽放大一倍还是面积放大一倍？

长。宽
是点击按钮，将Image1放大一倍后显示在Image2图像框内！
Stretch属性为True
代码：
Private Sub Command1_Click()
Image2.Picture = Image1.Picture
Image2.Width = 2 * Image1.Width
Image2.Height = 2 * Image1.Height
End Sub

可我就能放大一次，点击N次还是不行

废话。
你点2次和点1次的执行结果有区别么。
不都是b=2*a么。

我想让点一次　放大一倍，再点一次，再放大一倍，也就是两倍的意思　！明白不

是你没明白人家说什么吧.

[此贴子已经被作者于2007-10-29 22:27:24编辑过]

2 * Image1.Width,image1的长和宽是不变的,所以你点多少次都只是放大一倍.

Dim i As Integer
Private Sub Image1_Click()
Image1.Height = (i * 1000) + Val(Image1.Height)
Image1.Width = (i * 1000) + Val(Image1.Width)
i = i + 1
End Sub
原理就是这样``其它的自己研究了

static 定义个静态的变量 就可以了

好了，弄好了，定义一个Static变量　
将第一个图片的Stretch设为False　第二个为True就行了！
Private Sub Command1_Click()
Static a, b
Image2.Picture = Image1.Picture
a = 2 * Image1.Width
Image2.Width = a
Image1.Width = a

b = 2 * Image1.Height
Image2.Height = b
Image1.Height = b
End Sub