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

解决方案 »

  1.   

    打开form的时间你先将它显示出来,再来加载代码.Private Sub Form_Load()
    Show'首先显示'你其它的代码
    End Sub
      

  2.   

    数据库打开加载数据的时候可以参考这个
    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