Question

VB中弄一张图片，让它能放大缩小

基本的程序我已经弄了，但是，还是无法运行，一旦运行它就弹出一个窗口：实时错误‘424’这是怎么回事哦
以下就是我编写的程序；希望高手指点
Private Sub Command1_Click()
Imagel.Width = Imagel.wedth * 1.5
Imagel.Height = Imagel.Height * 1.5
End Sub

Private Sub Command2_Click()
Imagel.Width = Imagel.wedth / 1.5
Imagel.Height = Imagel.Height / 1.5
End Sub

Private Sub Command3_Click()
Imagel.Visible = ture
End Sub

Private Sub Command4_Click()
Imagel.Visible = Flase
End Sub

Private Sub Image1_Click()
object.strech [= boolean]
End Sub

Answer 1

首先，你的image名称要统一为Image1，不要一个是ImageL，一个是Image1。
另外，width不是wedth，true不是ture
还有，object.strech [= boolean]，没有这种写法的
程序问题多多，对比以下这段，自己看看：
Private Sub Command1_Click()
Image1.Width = Image1.Width * 1.5
Image1.Height = Image1.Height * 1.5
End Sub

Private Sub Command2_Click()
Image1.Width = Image1.Width / 1.5
Image1.Height = Image1.Height / 1.5
End Sub

Private Sub Command3_Click()
Image1.Visible = True
End Sub

Private Sub Command4_Click()
Image1.Visible = Flase
End Sub

Private Sub Image1_Click()
Image1.Stretch = True
End Sub

Answer 2

大哥你会不会啊……Imagel 是image1 最后一个字符时1
还有你定义的那个 图片框叫什么名字那后面引用的就是那个名字
还有你的英文水平太差……
试试下面的
是 Width 不是wedth
Private Sub Command1_Click()
Image1.Width = Image1.Width * 1.5
Image1.Height = Image1.Height * 1.5
End Sub

Private Sub Command2_Click()
Image1.Width = Image1.Width / 1.5
Image1.Height = Image1.Height / 1.5
End Sub

Private Sub Command3_Click()
Image1.Visible = True
End Sub

Private Sub Command4_Click()
Image1.Visible = False
End Sub

Private Sub Image1_Click()
Image1.Stretch = Not (Image1.Stretch)
End Sub