送你一个延迟函数单位毫秒
创新互联凭借专业的设计团队扎实的技术支持、优质高效的服务意识和丰厚的资源优势，提供专业的网站策划、网站建设、做网站、网站优化、软件开发、网站改版等服务，在成都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做一组图片然后用图片框根据进度动态显示。希望能帮到你。采纳请插旗。
你必须用多线程。因为你当前的线程正在执行查询语句，所以界面不会刷新，你也不会看到任何等待窗口。
售后响应及时
7×24小时客服热线
数据备份
更安全、更高效、更稳定
价格公道精准
项目经理精准报价不弄虚作假
合作无风险
重合同讲信誉，无效全额退款
网站设计包含服务
网站制作流程
有效沟通方式
售后服务
+ 品牌创意
+ 宣传视频
+ 大陆官网
+ 外贸官网
+ 移动应用
+ 形象设计
网站建设
网站优化
网站制作
网站制作
网络营销
网站维护
公司简介
我们的观点
为什么选择我们
企业文化
支付方式
联系方式
在线留言
提交意向表
在线客服
来访路线
