VB调试失败，实时错误424

来源：百度知道 编辑：UC知道 时间：2024/06/23 03:21:10
Dim X, Y, a, b As Single

Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Timer.Enabled = False
End
End Sub

Private Sub Form_Load()
set ball.Picture = LoadPicture(App.Path + "\earth.ico")'就这句错误
X = 10
Y = 10
a = 50
b = 80
End Sub

Private Sub Timer1_Timer()
ball.Move X, Y
X = X + a
Y = Y + b
If X >= Form1.Width - ball.Width Then a = -20
If Y > Form1.Height - ball.Height Then b = -30
If X <= 0 Then a = 15
If Y <= 0 Then b = 30

End Sub
看某些论坛上说去掉set也不行，把+改成&也不行，闷了

1、确保当前目录下有earth.ico
2、去掉set
3、Private Sub Command2_Click()
Timer.Enabled = False
End
End Sub 中Timer.Enabled = False 改为Timer1.Enabled = False ，End 去掉。

没问题ball.Picture = LoadPicture("d:\1.jpg")
你要用相对路径的话 你最好还是生成EXE后将程序文件放在图片文件同一个目录下~+ "\earth.ico")
Dim X, Y, a, b As Single

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer.Enabled = False
End
End Sub
Private Sub Form_Load()
ball.Picture = LoadPicture("d:\1.jpg") '就这句错误
X = 10
Y = 10
a = 50
b = 80
End Sub

Private Sub Timer1_Timer()
ball.Move X, Y
X = X + a
Y = Y + b
If X >= Form1.Width - ball.Width Then a = -20
If Y > Form1.Height - ball.Height Then b = -30
If X <= 0 Then a = 15
If Y <= 0 Then b = 30
End Sub

ball是什么啊~~~没有这个对象吧~?????