Question

“点击一次按钮，就将一个图片放大一倍”的代码咋写？

题目已经说的够清了！
我做的是这样的，代码：
Private Sub Command1_Click()
Image2.Picture = Image1.Picture
Image2.Width = 2 * Image1.Width
Image2.Height = 2 * Image1.Height
End Sub
是点击按钮 在Image2图像框内显示Image1放大一倍后！Stretch属性为True
可我就能放大一次！

那怎样修改使 点击一次增加一倍，再点击再增加一倍，也就是两倍的意思！怎样修改！

Answer 1

我是把图片放在Image1中了,记得在设计时将Image1.Stretch = True,让图片随着image一起缩放.

Private Sub Command1_Click()
Image1.Height = Image1.Height * 2
Image1.Width = Image1.Width * 2
End Sub

补充:请测试在说话呵..我都放了无数次.直到都看不到图片了呵.

拿你的代码举个例子
前面:
a=2
b=3

然后你的代码开始了.看清楚:
a=b
a=a*2

这样的代码,你无论点多少次,a永远只能等于6.

Answer 2

尼可明白意思了吗？？你这样的方法很简单，LZ的意思：Image1是原图，单击按钮则在Image2显示Image1图片的倍率图片。

Answer 3

如果你要的答案类型属于vb妮可的答案你可以采用她的答案

如果你要的答案是2213605说的那种答案的话我给你写了一个笨办法请看下面↓
其实我也菜鸟vb妮可帮过我呵呵

Dim a As String, b As String

Private Sub Command1_Click()

Image2.Height = a + 100
Image2.Width = b + 100
a = Image2.Height
b = Image2.Width
End Sub

Private Sub Form_Load()
a = Image1.Height: b = Image1.Width
Image2.Picture = Image1.Picture
End Sub

Answer 4

不错地方法...俺也学会啦...还是VB妮可厉害...