贪吃蛇完全做好了

happyking

写一个产生这样错误的VB源码出来.

好像是隐性,有时产生,有时没有产生.你看这样写,函数和按键消息没有冲突.

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    PressKeyFun
   
    Timer1.Enabled = True
   
End Sub

Englistemast

我不知道你的程序大框架是怎样的。请说明。

用Timer的话麻烦还有有的----VB不允许Timer_Timer()递归调用。
（为此我自己写了一个Timer类）

happyking

好像已经解决了.你可以用控件数组啊.

B＞C

ding

打酱油的

难道没有人知道什么叫做Collection？居然用动态数据杂七杂八的搞，我服了你们了

happyking

用集合好像不行耶.集合能保存一般变量,类,但是不能保存结构变量.
通不过.
Option Explicit
Dim A As New Collection
Private Type Student
    Score As Long
End Type
Private Sub Form_Load()
    Me.Hide
    Dim Boy As Student
    Boy.Score = 55
    A.Add Boy

End Sub

每个关节做成类,好像更复杂了.

打酱油的

happyking: Re:贪吃蛇完全做好了

用集合好像不行耶.集合能保存一般变量,类,但是不能保存结构变量.
通不过.
Option Explicit
Dim A As New...

你写成类要死啊

happyking

你怎么用集合的,写代码我看看.

打酱油的

写在类模块中
Public Class Node
    Public x As Short
    Public y As Short
End Class

然后
Dim c As New Collections
Dim n As New Node
c.Add n
需要移除时直接
c.Remove i
就可以了，反正会比数组方便很多

happyking

原来测试过,集合要比类数组慢得多.
用一些确实简单多了.