设置定时器的问题? 欢迎低手和高手来讨论！！！

[ding_alading]

我定义了一个Class1类:
Option Explicit
Public WithEvents tm As Timer

Private Sub tm_Timer()
MsgBox "this is a test", vbOKOnly, "VB"
End Sub


在Form1_Load事件中写入以下代码:

Dim clas As New Class1
clas.tm.Interval = 1000
clas.tm.Enabled = True

运行时出错:
Err.Number = 91
Err.Description = "Object variable or With block variable not set"
请问如何在类模块中设置定时器？

[wzsswz]

Dim clas As New Class1

Class1 有问题

[wzsswz]

Dim clas As New Class1

Class1 有问题

[wzsswz]

Dim clas As New Class1
有问题

[SarahCla]

我是这样作的：
给类加一个TIMER的接口，
在类中继承类外的一个TIMER。

[wzsswz]

Dim clas As Class1
clas.tm.Interval = 1000
clas.tm.Enabled = True

[ding_alading]

具体如何做？

[ding_alading]

To: wzsswz(岌岌荆棘)
不行!
to:fancylee(小恐龙)
具体如何做？

[wzsswz]

不好意思，理解错了

[wzsswz]

Dim clas As Class1
set clas.tm = timer1 '(timer1是预先方好的)
clas.tm.Interval = 1000
clas.tm.Enabled = True

[ding_alading]

to: wzsswz(岌岌荆棘)
不行啊!!!!!!
一到 set clas.tm=time1 就报错

[wzsswz]

set clas.tm = timer1

[wzsswz]

timer1是预先放好的，不是动态创建的

动态创建timer还不行
The timer appears on the form at design time only so you can select it, view its properties, and write an event procedure for it. At run time, a timer is invisible and its position and size are irrelevant.

[wzsswz]

timer1是预先放好的，不是动态创建的

动态创建timer还不行
The timer appears on the form at design time only so you can select it, view its properties, and write an event procedure for it. At run time, a timer is invisible and its position and size are irrelevant.

[ding_alading]

我试着在Form1中添加了一个Timer1,后来又在Module1中定义Timer1
都是同样的错误!

[wzsswz]

Module1:

Option Explicit

Type class1
dd As String
kk As Integer
tm As Timer
End Type
Public cs As class1
。。。。

form1:

Option Explicit

Dim rr As Object

Private Sub Form_Load()
Set rr = cs.tm
End Sub

Private Sub Form_Unload(Cancel As Integer)
rr.Enabled = False
End Sub

Private Sub Command1_Click()
Set rr = Timer1
rr.Enabled = False
rr.Interval = 1000
rr.Enabled = True
End Sub

Private Sub Command2_Click()
rr.Enabled = Not rr.Enabled = False
End Sub

[wzsswz]

Private Sub Command2_Click()
rr.Enabled = Not rr.Enabled
End Sub

[wzsswz]

如还不行，请贴出你的代码

[ding_alading]

我本来是想在一个类模块中增加一个定时器功能.
这样一来,在Class1中岂不没有定时器功能.那又何必在Class1中定义
public withevents tim as timer

还不如直接在Form中定义Timer事件.

谢谢wzsswz(岌岌荆棘) ！

[wzsswz]

确实如此