If adoprimaryrs2.RecordCount <> 0 Then
adoprimaryrs2.MoveFirst
End If
Do Until adoprimaryrs2.EOF
Set nodey = TreeView1.Nodes.Add(b, tvwChild, c, adoprimaryrs2.Fields("标题"), 4, 4)
c = c + "1"
adoprimaryrs2.MoveNext
Loop
b = b + "1"
adoprimaryrs1.MoveNext
Loop
adoprimaryrs1.Close
adoprimaryrs2.Close
Set adoprimaryrs1 = Nothing
Set adoprimaryrs2 = Nothing
End If
TreeView1.Nodes(1).Expanded = True
End Sub
Private Sub Form_Resize()
If Me.WindowState = maximized Then
Me.Width = 12000
Me.Height = 9000
End If
End Sub
Private Sub Menu_BackCorlor_Click()
CommonDialogCorlor.ShowColor
RTB1.BackColor = CommonDialogCorlor.Color
SaveSetting App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor
End Sub
Private Sub Menu_Clear_Click()
SendKeys "{del}"
End Sub
Private Sub Menu_Plaste_Click()
SendKeys "^V"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Temptitle = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
If BigStyle = "API函数" Then
RTB1.Text = "别名：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "别名") & Chr(10) & Chr(13)
RTB1.Text = RTB1.Text & "库名：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "库名") & Chr(10) & Chr(13)
RTB1.Text = RTB1.Text & "声明：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "声明") & Chr(10) & Chr(13)
RTB1.Text = RTB1.Text & "参数表：" & GetFthFld22("winfun", "函数", Trim(Temptitle), "参数表") & Chr(10) & Chr(13)
Else
RTB1.Text = GetFthFld2("code", "标题", Trim(Temptitle), "内容")
RTB1.SelStart = 0
End If
End Sub
Private Sub Menu_About_Click()
StrMsg = "本软件是作者的文档设计,为免费软件欢迎大家使用." & Chr(13) & _
&nbs