窗口显示滞后的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

版主老师，我在功能区设置了一个“”数据备份“”的按钮，按钮的Click事件为打开进度窗口，点击这个按钮后弹出数据备份进度的窗口，窗口中有一个显示备份进度的进度条和文字，窗口的AfterLoad事件代码为：

e.Form.Controls("Label1").Text = "正在进行备份,请稍后..."

Application.DoEvents()

Dim p As WinForm.ProgressBar

p = e.Form.Controls("ProgressBar1")

p.Maximum = DataTables.Count

'设置最大值

p.Minimum = 0 '设置最小值

p.Value = 0 '设置当前值

Dim t As String

Dim i As Integer = 0

Dim cs As String

cs=Format(Date.Now, "yyyyMMddHHmmss")

For Each dt As DataTable In DataTables

Dim ex As New Exporter

ex.FilePath = ProjectPath & "Backup\" & cs & ".mdb"

ex.SourceTableName = dt.Name

i= i + 1

p.value=i

t = dt.LoadFilter

If t <> "" Then

dt.LoadFilter= ""

dt.load

ex.Export()

dt.LoadFilter = t

dt.load

Else

ex.Export()

End If

e.Form.Controls("Label1").Text = "备份完成"

e.Form.Controls("Label3").Text = " 文件名:" & cs & ".mdb"

这个代码能实现自动备份，但是问题是，当我点击“数据备份”按钮之后，并没有弹出这个显示进度的窗口，但是数据备份工作已经开始了，当备份完了，这个窗口才弹出来，这是怎么回事？

如何修改让点击“数据备份”这个按钮之后，这个进度窗口就立即显示出来？

因为数据有点大，所以备份时间要1-2分钟，等备份完了，这个窗口才显示出来。

开启窗口计时器，上面代码放到TimerClick事件

e.Form.TimerEnabled = False

'这里开始是原来的代码

......

这样不对，进度窗口是打开了，但是进度条不动，也没有执行备份的代码。

看能不能弹出对话框

e.Form.TimerEnabled = False

e.Form.Controls("Label1").Text = "正在进行备份,请稍后..."

Application.DoEvents()

Dim p As WinForm.ProgressBar

p = e.Form.Controls("ProgressBar1")

p.Maximum = DataTables.Count

'设置最大值

p.Minimum = 0 '设置最小值

p.Value = 0 '设置当前值

Dim t As String

Dim i As Integer = 0

Dim cs As String

cs=Format(Date.Now, "yyyyMMddHHmmss")

For Each dt As DataTable In DataTables

msgbox(dt.Name)

Dim ex As New Exporter

ex.FilePath = ProjectPath & "Backup\" & cs & ".mdb"

ex.SourceTableName = dt.Name

i= i + 1

p.value=i

Application.DoEvents()

t = dt.LoadFilter

If t > "" Then

dt.LoadFilter= ""

dt.load

ex.Export()

dt.LoadFilter = t

dt.load

msgbox("1")

Else

msgbox("2")

ex.Export()

End If

e.Form.Controls("Label1").Text = "备份完成"

e.Form.Controls("Label3").Text = " 文件名:" & cs & ".mdb"

能打开备份的窗口，因为本来“本地备份”这个按钮就是打开这个窗口，现在窗口是打开了，但是滚动条不动，不能备份。

参考：
http://www.foxtable.com/webhelp/scr/1476.htm

狐爸，你这个帮助我已经看过了，这个是针对显示的文字的时间问题。

我这个是窗口显示滞后的问题，点击按钮后，窗口弹不出来，但是已经在执行窗口中的代码了，只有执行完了，窗口才显示出来。

结合3楼和7楼的方法

狐爸，我知道你也比较忙，但是，你们的回答都把问题复杂话了，能直接告诉我一个解决办法吗，楼都跟了好几层了，问题仍然存在。

主题：窗口显示滞后的问题