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

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

我可是照着输入的啊,可是总不能运行,说什么语法错误,高手帮忙,我和书上的对了又对,都是一样的啊,为什么我总不能成功运行?
...全文
7 点赞 收藏 4
写回复
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 "
唉,其实这个问题在书上是很简单的,可是我怎么这么笨呢,又要麻烦大家了
回复
Neoking 2003-12-14
赞同!!
回复
enj1224 2003-12-14
Command1.Left = Command1.Left + 150
吧!
不然怎么会对?
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告