Question

VB编程 改变图片大小

点击command1图片变大
点击command2图片变小
这个怎么做啊

请各位高手指教~

Answer 1

Private Sub Command1_Click()
Static i As Integer
i = i + 1
Image1.Stretch = True
Image1.Width = Image1.Width * (1 + i * 0.1)
Image1.Height = Image1.Height * (1 + i * 0.1)
End Sub

Private Sub Command2_Click()
Static i As Integer
i = i + 1
Image1.Stretch = True
Image1.Width = Image1.Width * (1 - i * 0.1)
Image1.Height = Image1.Height * (1 - i * 0.1)
End Sub