十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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