Question

在线急求一个VB高手 帮忙看看这个小程序为什么不能运行 提示有语法错误，跪求高手啊

创建一个窗体，在上面添加“开始”和“停止”两个按钮，添加一个计时器控件timer1
在窗体上添加一个shape控件，设置背景不透明，红色，调整大小
程序代码如下：
Option Explicit
Dim bz%

Private Sub Command1_Click() '开始按钮
Timer1 = True
End Sub

Private Sub Command2_Click() '停止按钮
Timer1 = False
End Sub

Private Sub Form_Load()
Shape1.Left = 0
Shape1.Top = 0
Timer1 = False
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.Top <= 0 Then bz = 1
If Shape1.Top >= Form1.ScaleHeight - Shape1.Height Then bz = 2
If Shape1.Left <= 0 Then bz = 3
If Shape1.Top <= 0 And Shape1.Left <= 0 Then bz = 0
Select Case bz
Case 0
Shape1.Left = Shape1.Left + 10
Case 1
Shape1.Top = Shape1.Top + 10
Case 2
Shape1.Left = Shape1.Left - 10
Case 3
Shape1.Top = Shape1.Top - 10
End Select
End Sub

总是提示
Private Sub Timer1_Timer()
If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.Top <= 0 Then bz = 1
有语法错误 把AND改成OR也没有用啊 怎么回事

Answer 1

改成这样试试：
Private Sub Timer1_Timer()
If Shape1.Left > Form1.ScaleWidth - Shape1.Width Then
Shape1.Left = Form1.ScaleWidth - Shape1.Width
bz = 1
End If
If Shape1.Top > Form1.ScaleHeight - Shape1.Height Then
Shape1.Top = Form1.ScaleHeight - Shape1.Height
bz = 2
End If
If Shape1.Left < 0 Then
Shape1.Left = 0
bz = 3
End If
If Shape1.Top < 0 Then
Shape1.Top = 0
bz = 0
End If
Select Case bz
Case 0
Shape1.Left = Shape1.Left + 15
Case 1
Shape1.Top = Shape1.Top + 15
Case 2
Shape1.Left = Shape1.Left - 15
Case 3
Shape1.Top = Shape1.Top -15
End Select
End Sub

Answer 2

没出错，运行正常，图形会绕着窗体转圈

追问

为什么我一运行 就提示语法错误
Private Sub Timer1_Timer()
If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.Top <= 0 Then bz = 1
这两行就显示成黄色和红色？

追答

看一看控件名称是不是错了？窗体名称：Form1，时间控件名称：Timer1，图形名称：Shape1

追问

这些都是对的 大哥 麻烦你打开VB试试吧 我弄了一中午了还是不明白

追答

当然试过了，看图：

Answer 3

测试过,没提示出错,
但图圈不会绕着窗体转,
只在第一行从左往右就不见了.估计跑外面去了.

追问

那我该怎么修改呢》

Answer 4

。。。。。。。。。。。。。。。。。。。。。。。。。。

Answer 5

如xjnzhidao所说的一样，是可以正常运行的。如果你在调试的时候发现错误，不妨截图来让大家分析一下。

Answer 6

If (Shape1.Left >= Form1.ScaleWidth - Shape1.Width )And (Shape1.Top <= 0 )Then bz = 1

追问

我i加括号试了 还是不行啊