扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状
成都创新互联公司是一家专业提供句容企业网站建设,专注与成都网站设计、网站建设、H5高端网站建设、小程序制作等业务。10年已为句容众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
'加载耗时较长的函数
Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常
Shell(".\bin\rar.exe a -hp123 -k -r -s -y d:\wwwroot\Backup\20100328.rar d:\wwwroot\web", vbHide, True)vbHide参数的后一个可选参数设为True就可以让Shell同步执行了，只有命令执行完才接着Shell下边的语句.
你必须用多线程。因为你当前的线程正在执行查询语句，所以界面不会刷新，你也不会看到任何等待窗口。
如果需要等待T2线程结束，那又何必开启这个线程！！
直接：
Label1.Visible = True
setB()
MsgBox("d")
这不就是执行完setB()，再执行MsgBox("d")，多线程是多余的。
多线程的作用大多数也就用来同时执行多任务而不用等待的。
Dim s As String = "123456789"
For i = 1 To Len(s)
TextBox1.Text = TextBox1.Text Mid(s, i, 1)
System.Threading.Thread.Sleep(1000)
Application.DoEvents()
Next
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网