Dim WithEvents T_PULS As New Timer

[那该多好啊！！！]

请问一下，
Dim WithEvents T_PULS As New Timer 这是定义一个变量’ T_PULS为什么前面要加WithEvents

Private Sub T_PULS_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles T_PULS.Tick
D(120) = 0
T_PULS.Enabled = False
End Sub

[X-i-n]

代码窗口有两个下拉框，其中一个下拉以后，会列出当前窗体上所有控件，另一个下拉以后会列出对应这个控件的事件。 你可以下拉一下控件列表看看，加了WithEvents 以后，这个列表里就会有这个控件。再删掉WithEvents看看这个列表，会发现这个控件就没有了。 定义控件的时候带上WithEvents，编辑器会为这个控件加上事件。

[赵4老师]

Dim 语句 声明变量并分配存储空间。 语法 Dim [WithEvents] varname[([subscripts])] [As [New] type] [, [WithEvents] varname[([subscripts])] [As [New] type]] . . . Dim 语句的语法包含下面部分： 部分 描述 WithEvents 可选的。关键字，说明 varname 是一个用来响应由 ActiveX 对象触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents，可以声明任意个所需的单变量，但不能使用 WithEvents 创建数组。New 和 WithEvents 不能一起使用。 ……

[X-i-n]

哪三个定时器？代码发出来。 T_PULS.Enabled = False 只对名字叫T_PULS的对象生效。

[那该多好啊！！！]

引用 4 楼 Runnerchin 的回复:

哪三个定时器？代码发出来。 T_PULS.Enabled = False 只对名字叫T_PULS的对象生效。

嗯， 比如这个TIMER1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 这里面是通讯用的程序 End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim TT As String TT = HEX_to_BIN(DEC_to_HEX(D(5))) For I = 0 To Len(TT) - 1 If I <= 7 Then X(I) = Mid(TT, Len(TT) - I, 1) Else X(I + 2) = Mid(TT, Len(TT) - I, 1) End If Next 这里面也是很多通讯用的程序 End Sub

[那该多好啊！！！]

引用 4 楼 Runnerchin 的回复:

哪三个定时器？代码发出来。 T_PULS.Enabled = False 只对名字叫T_PULS的对象生效。

如果只对叫T_PULS的对象生效，为什么要声明一个这样的定时器了，不如直接从控件里用一个拖一个出来，就像TIMER1和TIMER2

[那该多好啊！！！]

引用 1 楼 Runnerchin 的回复:

代码窗口有两个下拉框，其中一个下拉以后，会列出当前窗体上所有控件，另一个下拉以后会列出对应这个控件的事件。 你可以下拉一下控件列表看看，加了WithEvents 以后，这个列表里就会有这个控件。再删掉WithEvents看看这个列表，会发现这个控件就没有了。 定义控件的时候带上WithEvents，编辑器会为这个控件加上事件。

请问一下，如果定义了这样一个Dim WithEvents T_PULS As New Timer 然后 在T_PULS.Enabled = False 是不是表示这个程序里面所有的TIMER事件全部False 比如我有三个定时器，是不是这时候三个定义器全部都False