打开某form时由于要很长时间能否用ProgressBar表示打开进度?或打开一个SQL过程能否用ProgressBar表示打开进度?谢谢 代码如何写呢??谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 打开form的时间你先将它显示出来,再来加载代码.Private Sub Form_Load()Show'首先显示'你其它的代码End Sub 数据库打开加载数据的时候可以参考这个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 为什么有数据传输却没有触发WebBrowser1_DocumentComplete事件? ####vb 怎么让数据从上到下 从左到右 显示呢...在线等... 在线等,一个关于修改记录的问题 请教VB中全局变量设置 datareport问题 有什么办法可以以文本的方式显示一副扑克牌 非常急!!!!! 一个简单的问题 哪位仁兄能提供中文版水晶报表9的下载位置? 请教关于VB中的WINSOCK控件 问个二进制文件存储的问题 有什么好的下载文件方法! 急需!!!如何解决进销存中的出库方式
Show'首先显示'你其它的代码
End Sub
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