主页

这个代码有什么问题啊？？

flypinging 2003-12-14 12:30:45

Private Sub Command2_Click()
If Command1.Left >= Form1.Width-Command1.Width
Command1.Left = 0
End If
Command1.Left = Command1 + 150
End Sub

Private Sub Command3_Click()
End
End Sub

我可是照着输入的啊，可是总不能运行，说什么语法错误，高手帮忙，我和书上的对了又对，都是一样的啊，为什么我总不能成功运行？

...全文

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

dapha 2003-12-14

Command1.Left = Command1 + 150

这里错了，或许是书上印错了

回复赞

flypinging 2003-12-14

Private Sub Command2_Click()
if command1.Left>=form1.Width-command1.Width
Command1.Left = 0
End If
Command1.Left = Command1.Left + 150
End Sub

Private Sub Command3_Click()
End
End Sub
我改了，为什么还是不行呢？也是语法错误，
Private Sub Command2_Click() 这一行显示为黄色
if command1.Left>=form1.Width-command1.Width 这一行显示为红色
我在输入上面这句后，回车，出现“编译错误：缺少then或go to "
唉，其实这个问题在书上是很简单的，可是我怎么这么笨呢，又要麻烦大家了

回复赞