VB.net使用多线程与委托解决时间延迟的问题

问题的来由：

设置保存后，希望有提示“已保存”，并在提示出现后，延时5秒，随后提示自动消失

就是下文中Label7.text的显示变成""

最早是希望用thread.sleep 来解决的，最简单：

Private Sub main() Label7.Text = "已保存" Threading.Thread.Sleep(5000) Label7.Text = "" End Sub

但是会造成页面无反应，假死5秒，相当不爽

直接使用 DoEvents() ，也会假死：

Private Sub main() Label7.Text = "已保存" Dim tmpNow As Date = Now While Now.Subtract(tmpNow).Seconds < 5 '5秒后消失 Windows.Forms.Application.DoEvents() End While Label7.Text = "" End Sub

随后考虑使用100毫秒的时间间隔，使用 Sleep 配合 DoEvents

Private Sub main() Label7.Text = "已保存" Dim i As Integer i = 50 While i > 0 Threading.Thread.Sleep(100) Windows.Forms.Application.DoEvents() i = i - 1 End While Label7.Text = "" End Sub

发现效果还行。只是在点击文本框的时候，需要点击2次，只能说还是略有遗憾。

最后使用了threading.thread.timer，使用多线程，并因为timer不能在多线程下控制窗口控件，于是采用委托，解决问题

Imports System Imports System.Threading Private Sub main() Label7.Text = "已保存" Dim tcb As New TimerCallback(AddressOf Me.TimerMethod) Dim objTimer As Timer objTimer = New Timer(tcb,Nothing,TimeSpan.FromSeconds(5),TimeSpan.FromSeconds(0)) '延迟5秒开始执行，间隔xx秒重复执行，0为不重复执行 Label7.Text = "" End Sub Public Sub TimerMethod(ByVal state As Object) Invoke(New DelegateSub(AddressOf SetText),"") '此处新建委托并执行 End Sub Public Delegate Sub DelegateSub(ByVal text As String)'定义一个委托 Public Sub SetText(ByVal text As String) '此处是接受委托，执行函数 Label7.Text = text End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!