当前位置：首页 → 问答吧 → 在自定义类中有一个Timer对象，但Timer中的动作一直没有执行，怎么办？

在自定义类中有一个Timer对象，但Timer中的动作一直没有执行，怎么办？

时间：2011-08-06

来源：互联网

需求：
在自定义类(clsUser中)有一个过程add,需要在add过程中创建一个定时器objTimer对象,另外定时器执行的动作也要写在自定义类中.

调用：
需要在窗体中调用自定义类的add过程，并能执行定时器中的动作。

问题：如何在窗体中调用自定义类时，能执行类中的定时器有关的动作？谢谢！

定义类中的部分代码如下：
VB code


Private WithEvents objTimer As Timer
public function add(byval objForm as Form)
       ...
      set objTimer = objForm.Controls.Add("VB.Timer", "objTimer")

    objTimer.Interval = 1000
    objTimer.Enabled = True
    ...
end function

Private Sub objTimer_Timer()
      程序一直不执行这里
end sub

在窗体中调用自定义类,代码如下：
VB code


Dim objUser as new clsUser
call objUser.add(frmUser)

作者: downdown518518 发布时间: 2011-08-06

set objTimer = objForm.Controls.Add("VB.Timer", "objTimer")

作者: patrickkong 发布时间: 2011-08-06

你这段代码能说明什么？

引用 1 楼 patrickkong 的回复:
set objTimer = objForm.Controls.Add("VB.Timer", "objTimer")

作者: downdown518518 发布时间: 2011-08-06

你这代码就是我程序中的其中一句呀，说明不了什么吧。。。请仔细看问题。谢谢！

引用 1 楼 patrickkong 的回复:
set objTimer = objForm.Controls.Add("VB.Timer", "objTimer")

作者: downdown518518 发布时间: 2011-08-06

难道就这么沉下去了？请高人出来解答。

作者: downdown518518 发布时间: 2011-08-06

Private WithEvents objTimer As Timer

作者: patrickkong 发布时间: 2011-08-06

在自定义类中有一个Timer对象，但Timer中的动作一直没有执行，怎么办？

热门阅读

热门下载