重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你必须用多线程。因为你当前的线程正在执行查询语句,所以界面不会刷新,你也不会看到任何等待窗口。
成都创新互联从2013年创立,先为义乌等服务建站,义乌等地企业,进行企业商务咨询服务。为义乌企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
如果需要等待T2线程结束,那又何必开启这个线程!!
直接:
Label1.Visible = True
setB()
MsgBox("d")
这不就是执行完setB(),再执行MsgBox("d"),多线程是多余的。
多线程的作用大多数也就用来同时执行多任务而不用等待的。
@echooffechohellonulping127.1/10echoworldpause::输出hello,延迟10秒后,输出world。::将/10,改为/100就延迟100秒。举一反三,你懂得……
#macro pager totalPage curPage=1 showPageNum=10
#if (showPageNum totalPage)
#local showPageNum = totalPage-1br/
/#if
${showPageNum}
/#macro
解释:global、assign、local(macro参数)、list(由list创建的循环变量如:#list a as x)关系
global 全局变量,在所有命名空间可见
assign 当前命名空间可见
local(macro参数) 局部变量,当前宏内可见
循环变量(#list a as x) 当前循环可见
他们之间的关系 循环变量会隐藏局部变量(local创建的或macro参数)
局部变量(local创建的或macro参数)会隐藏assign(创建的变量)
assign(创建的变量)会隐藏global
送你一个延迟函数单位毫秒
Public Sub delay(ByRef Interval As Double)
On Error Resume Next
Dim time As DateTime = DateTime.Now
Dim Span As Double = Interval * 10000000 '因为时间是以100纳秒为单位。
While ((DateTime.Now.Ticks - time.Ticks) Span)
Application.DoEvents()
End While
End Sub