16,554
社区成员
发帖
与我相关
我的任务
分享
Sub New()
Dim 连接委托 As Threading.TimerCallback
Dim 委托 As Threading.Timer
连接委托 = New Threading.TimerCallback(AddressOf 某线程)
委托 = New Threading.Timer(连接委托, 连接字符串, 0, -1)
End Sub
:
:
Private Sub 某线程()
'(想在此处对线程进行命名)
'线程中有使用 委托.Change 方法
:
End Sub
Dim 连接委托 As Threading.TimerCallback
Dim 委托 As Threading.Timer
没有可命名的属性
Dim t As Threading.Thread
t = New Threading.Thread(AddressOf 某线程)
t.Name = "线程名称"
但Threading.TimerCallback类型好像不行。
[/quote]
另外线程的数量也不是固定的。会动态生成。有时会并发大量线程。
Dim t As Threading.Thread
t = New Threading.Thread(AddressOf 某线程)
t.Name = "线程名称"
但Threading.TimerCallback类型好像不行。