以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]全局代码中动态创建Timer  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73910)

--  作者:不可思议的虫
--  发布时间:2015/8/28 23:27:00
--  [求助]全局代码中动态创建Timer
下列代码运行时进入不了CTSTimer_Tick事件,有什么办法解决?代码都写在全局代码中

Public CtsTmr As System.Windows.Forms.Timer

Public Sub XXX
CtsTmr = New System.Windows.Forms.Timer
CtsTmr.Interval = 150
CtsTmr.Enabled = True
\'事件委托
AddHandler CtsTmr.Tick, AddressOf CTSTimer_Tick
End Sub

Public Sub CTSTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim myTimer As System.Windows.Forms.Timer
    myTimer = sender

    messagebox.show("timer")
   
    myTimer.Enabled = False
 End Sub

[此贴子已经被作者于2015/8/28 23:28:52编辑过]

--  作者:有点蓝
--  发布时间:2015/8/29 9:20:00
--  
你需要在外部调用一下这个方法才行啊
--  作者:不可思议的虫
--  发布时间:2015/8/29 16:21:00
--  
外部有调用,代码没贴上来,研究了很长时间还是不行后来写个线程代替Timer了
--  作者:有点蓝
--  发布时间:2015/8/29 16:33:00
--  
可以的兄弟
--  作者:Hyphen
--  发布时间:2015/8/29 16:38:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=73927