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 Wh