从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图