在VB中设置定时器 [英] Setting Up A Timer In VB

问题描述

我再次与VB斗争我在C＃中使用了一个计时器，如下所示

 NoDataAtPort =  new  System.Timers.Timer（ 100 ）; 
 NoDataAtPort.Elapsed + =  new  ElapsedEventHandler（OnTimeOut）

在VB中这是：

 公共 NoDataAtPort = 新 System.Timers。计时器（ 100 ）
 公共 NoDataAtPort.Elapsed + = 新 ElapsedEventHandler（OnTimeOut）

为什么我会得到毁灭性的蓝色毁灭线？带有以下错误消息

错误1选项Strict On要求所有变量声明都具有As子句。 C：\Users\glennp \Dropbox \ RG3 VB TestRig Start \RG3 VB TestRig Start \VB Comms Tester\VB Comms Test \ VB Comms Test\Form1.vb 37 12 VB Comms Test 

该错误每秒出现两次错误，第三个错误是

错误3结束声明的预期。 C：\Users\glennp \ Dropbox \ RG3 VB TestRig Start \RG3 VB TestRig Start \VB Comms Tester\VB Comms Test \ VB Comms Test\Form1.vb 38 24 VB Comms Test 

我需要一个不同的声明...

解决方案

尝试：

 公共 NoDataAtPort  As  System.Timers .Timer = 新 System.Timers.Timer（ 100 ）

I am battling with VB again I have used a timer in C# as follows

NoDataAtPort = new System.Timers.Timer(100);
 NoDataAtPort.Elapsed += new ElapsedEventHandler(OnTimeOut)

In VB this is :

Public NoDataAtPort = New System.Timers.Timer(100)
Public NoDataAtPort.Elapsed += New ElapsedEventHandler(OnTimeOut)

so why do I get the wiggly blue line of Doom? with the following error messages

Error	1	Option Strict On requires all variable declarations to have an 'As' clause.	C:\Users\glennp\Dropbox\RG3 VB TestRig Start\RG3 VB TestRig Start\VB Comms Tester\VB Comms Test\VB Comms Test\Form1.vb	37	12	VB Comms Test

That error appears twice a Second error, the third error is

Error	3	End of statement expected.	C:\Users\glennp\Dropbox\RG3 VB TestRig Start\RG3 VB TestRig Start\VB Comms Tester\VB Comms Test\VB Comms Test\Form1.vb	38	24	VB Comms Test

Do I need to a different declare...

解决方案

Try:

Public NoDataAtPort As System.Timers.Timer = New System.Timers.Timer(100)

这篇关于在VB中设置定时器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！