VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 4 条记录 1/1页
help
发表在VB答疑区
2010-06-03
是否精华
是
否
版块置顶:
是
否
我照 《vb 范例完全自学手册》的贪吃蛇 做了一遍，怎么舍遇到食物时，吃不掉，而是直接穿过食物走了
提示代码调试：Picrect.SetFocus
If Pic(0).Left = Picadd.Left And Pic(0).Top = Picadd.Top Then
Load Pic(Pic.Count)
Pic(Pic.UBound).Visible = True
Picadd.Visible = False
Score = Score + 1
Label1.Caption = Score
End If
If Pic(0).Left = Picmore.Left And Pic(0).Top = Picmore.Top Then
Score = Score + 5
Label1.Caption = Score
For i = 1 To 3
Load Pic(Pic.Count)
Pic(Pic.UBound).Visible = True
Picmore.Visible = False
Next i
End If
请帮忙看下 是不是窗体里哪个属性值没有设置。谢谢。
提示代码调试：Picrect.SetFocus
If Pic(0).Left = Picadd.Left And Pic(0).Top = Picadd.Top Then
Load Pic(Pic.Count)
Pic(Pic.UBound).Visible = True
Picadd.Visible = False
Score = Score + 1
Label1.Caption = Score
End If
If Pic(0).Left = Picmore.Left And Pic(0).Top = Picmore.Top Then
Score = Score + 5
Label1.Caption = Score
For i = 1 To 3
Load Pic(Pic.Count)
Pic(Pic.UBound).Visible = True
Picmore.Visible = False
Next i
End If
请帮忙看下 是不是窗体里哪个属性值没有设置。谢谢。
分享到：
