计时器未在 vb.net 中启动

Question

使用 excel 作为数据源的网络程序。然后我用这个数据源填充一个datagridview，并通过datagridview 对数据集进行更改。我试图找到一种方法来通过一个按钮来刷新这个数据集，该按钮将在更改后更新值。我唯一的问题是我试图在我的刷新方法中设置一个计时器，但它从不初始化/启动。我不知道为什么，从我在网上找到的在 vb.net 中启动计时器的方法是将计时器变量设置为启用 = true。我已经进入我的调试器，发现计时器永远不会启动。下面是我的代码，如果有人能弄清楚为什么这个计时器没有启动，我将非常感谢你的帮助！

Dim mytimer As New System.Timers.Timer
Sub refresh()

   write2Size()



   mytimer.timer = New System.Timers.Timer(20000)
  'Starting Timer
   mytimer.Enabled = True
   Cursor.Current = Cursors.WaitCursor



   AddHandler mytimer.Elapsed, AddressOf OnTimedEvent



   objworkbook.Save()
   objExcel.ActiveWorkbook.Save()

   myDS.Clear()
   retrieveUpdate()

  'Setting the cursor back to normal here
       Cursor.Current = Cursors.Default
   End Sub

   Private Shared Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)

   Console.WriteLine("The Elapsed event was raised at {0}, e.SignalTime)
   End Sub

Answer 1

您正在这里创建一个计时器 将 mytimer 调暗为新 System.Timers.Timer 但您只需将处理程序分配给您在 Refresh 例程中创建的处理程序。

本应期待

Dim mytimer As New System.Timers.Timer(20000)
AddHandler mytimer.Elapsed, AddressOf OnTimedEvent

然后

Private Shared Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)

   Console.WriteLine("The Elapsed event was raised at {0}, e.SignalTime)
   Refresh()
End Sub

类似的东西

Sub refresh()

   myTimer.Enabled = False
   // refresh the doings
   myTimer.Enabled = True
End sub

请原谅我缺乏 VBness，我是 C# 男孩。