从品牌网站建设到网络营销策划,从策略到执行的一站式服务
送你一个延迟函数单位毫秒
创新互联凭借专业的设计团队扎实的技术支持、优质高效的服务意识和丰厚的资源优势,提供专业的网站策划、网站建设、做网站、网站优化、软件开发、网站改版等服务,在成都10余年的网站建设设计经验,为成都成百上千家中小型企业策划设计了网站。
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
你可以将连接到数据库进行的操作分成子任务,然后设定进度,例如要做10件事,每做完一件演示一个动画。至于动画,你可以用Flash做一组图片然后用图片框根据进度动态显示。希望能帮到你。采纳请插旗。
你必须用多线程。因为你当前的线程正在执行查询语句,所以界面不会刷新,你也不会看到任何等待窗口。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图