'Private Sub Command1_Click()
'Dim str As String: Dim rst1 As New ADODB.Recordset: Dim rst2 As New ADODB.Recordset
'str = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\WinApi.mdb;"
'rst1.Open "select * from winfun", str, adOpenKeyset, adLockOptimistic
'rst2.Open "select * from funclass", str, adOpenKeyset, adLockOptimistic
'rst1.MoveFirst
'For i = 1 To rst1.RecordCount
' rst1.Fields("声明") = GetFthFld2("funclass", "name", rst1.Fields("函数"), "fullname")
' rst2.Update
' rst1.MoveNext
'Next
'End Sub
Private Sub Form_Load()
Me.Top = 0: Me.Left = 0
Frame5.Visible = False: Frame6.Visible = False: TreeView1.Visible = True
StatusBar1.Panels(1).Text = " " & Format(Date, "long date") & " " & Time & " "
RTB1.FileName = App.Path & "\data\about.dat"
RTB1.Font.Size = GetSetting(App.EXEName, "Font", "FontSize", RTB1.Font.Size)
RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
StrConnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\VB.mdb;"
StrTempConnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\winapi.mdb;"
BigStyle = "VB基础"
Call ShowTree(BigStyle)
End Sub
Private Sub ShowTree(ByVal TempBigStyle As String)
Dim nodex As Node
Dim nodey As Node
Dim adoprimaryrs1 As New ADODB.Recordset
Dim adoprimaryrs2 As New ADODB.Recordset
a = "aa"
b = "bb"
c = "cc"
If TempBigStyle = "API函数" Then
'*************************************************
adoprimaryrs1.CursorLocation = adUseClient
adoprimaryrs1.Open "select 函数 from winfun order by 函数", StrTempConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
'*************************************************
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Clear
Set nodex = TreeView1.Nodes.Add(, , a, TempBigStyle, 2, 1)
If adoprimaryrs1.RecordCount &l
