打开某form时由于要很长时间能否用ProgressBar表示打开进度？或打开一个SQL过程能否用ProgressBar表示打开进度？谢谢

[huangyuhua]

代码如何写呢？？谢谢!!

[tztz520]

打开form的时间你先将它显示出来,再来加载代码.

Private Sub Form_Load()
Show'首先显示

'你其它的代码
End Sub

[ZOU_SEAFARER]

数据库打开加载数据的时候可以参考这个
Private Sub Command1_Click()
Totel = Data1.Recordset.RecordCount
Data1.Caption = Totel
ProgressBar1.Max = Totel
Do While Data1.Recordset.EOF = False
For i = 0 To 4
Str(i) = Data1.Recordset.Fields(i).Value
Next
Max = Max + 1
ProgressBar1.Value = Max
Set mNode = TreeView1.Nodes.Add("Root", tvwChild, "Str" & CStr(Id), Str(0))
Set mNode = TreeView1.Nodes.Add("Str" & CStr(Id), tvwChild, "Str" & CStr(Id + 1), Str(1))
Set mNode = TreeView1.Nodes.Add("Str" & CStr(Id), tvwChild, "Str" & CStr(Id + 2), Str(2))
Set mNode = TreeView1.Nodes.Add("Str" & CStr(Id), tvwChild, "Str" & CStr(Id + 3), Str(3))
Data1.Recordset.MoveNext
Id = Id + 4
Loop

Set mNode = Nothing



End Sub