送你一个延迟函数单位毫秒
创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站设计、做网站、城子河网络推广、小程序制作、城子河网络营销、城子河企业策划、城子河品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联公司为所有大学生创业者提供城子河建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
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
将你的想执行的程序分割成2个过程,在执行前过程后启动TIMER:
Timer1.Enabled = True
将判断放TIMER控件的事件内,符合条件后,执行后过程,并使Timer1.Enabled = False
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状
'加载耗时较长的函数
Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常
你必须用多线程。因为你当前的线程正在执行查询语句,所以界面不会刷新,你也不会看到任何等待窗口。
详细查看了你的问题,完全不需要使用线程sleep的方法。
在这边,我要给你引入一个概念。就是Form窗体的两个方法。
Form.Show()和Form.ShowDialog()
第一个Show方法运行后,你的主程序还是会进行,你的代码还是会继续进行下去。此时,窗体还是弹出的。
第二个ShowDialog方法运行后,此时,弹出的一个窗体,你不将其关闭,那么,主程序就会一直等待这个窗体关闭后,才执行后面的代码。
所以,你只需要使用showdialog这个方法,即可达到你想要的结果。
那么,如何才能让弹出的窗体不改变呢?很简单
你可以找到窗体的formcloseing事件,在这个事件中,有一个参数:e
这个e有一个属性,就是e.handle,表示是否处理过这个事件了。
这个时候,如果你不想让窗体关闭,你可以写:
e.handle=true,那么表示已经处理过窗体关闭的事件了。
注:有些情况,可能是:e.cancel=true