VBA下完全功能的Timer类

HHAAMM

这个还要改进下

使用中发现，生成多个实例后再对所有实例都执行
cTimerX.Enabled = False
Set cTimerX = Nothing
后并不能完全释放

winland

原帖由 HHAAMM 于 2010-9-24 16:52 发表
这个还要改进下

使用中发现，生成多个实例后再对所有实例都执行
cTimerX.Enabled = False
Set cTimerX = Nothing
后并不能完全释放

虎版，我试了一下你的那个坦克游戏，关闭之后没发现崩溃的现象啊，怎么说不能完全释放呢？

HHAAMM

可能是代码我写的有问题

好像是出错后停不下来，不得不调出任务管理器强行关闭
我再试试

又见清风

lihai
完全看不懂，我要努力了

HHAAMM

八版：问题找到了
Private WithEvents cTimer1 As clsTimer
Private WithEvents cTimer2 As clsTimer

Private Sub CommandButton1_Click()
    Set cTimer1 = New clsTimer
    cTimer1.Interval = 1000
    cTimer1.Enabled = True
End Sub

Private Sub cTimer1_Timer()
    cTimer2.Enabled = True '在cTimer2 没有 new 一下时就会出错
    Cells(1, 1).Value = Now
End Sub

Private Sub cTimer2_Timer()
    Cells(2, 1).Value = Now
End Sub

linpansheng

解决了Timer这个控件的问题？
那好好看看

HHAAMM

能不能修改成在没有new时上面代码也可正常使用

[ 本帖最后由 HHAAMM 于 2010-9-24 21:35 编辑 ]

winland

原帖由 HHAAMM 于 2010-9-24 21:32 发表
能不能修改成在没有new时上面代码也可正常使用

类的实例化需要使用New来完成。或者可以在使用Dim声明的时候直接使用New

lgcmeli

非常好。学习了俄

joforn

此函数在挂载父窗体后在调用释放内存时可能会导致内存泄漏，甚至导致程序内存读写错误……
不过，上面的现象只是在极个别的“非常”调用方式下才会出现，我也是偶然发现的。