"" & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & _
""
MsgBox StrMsg, vbOKOnly + vbInformation
End Sub
Private Sub Menu_Add_Click()
Frame5.Visible = True: Frame6.Visible = True: TreeView1.Visible = False
Call SelFldtoCbo("code", "小类别", BigStyle, Cbostyle)
Label4.Caption = "（添加）"
TxTTitle.Text = ""
RTB1.Text = ""
On Error GoTo ERR:
If ExistRecord("code", "标题", TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)) = True Then
Cbostyle.Text = TreeView1.Nodes.Item(TreeView1.SelectedItem.Parent.Index)
Else
If ExistRecord("code", "小类别", TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)) = True Then
Cbostyle.Text = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
End If
End If
ERR:
RTB1.Locked = False
RTB1.BackColor = RGB(255, 255, 255)
AddCode = True
Toolbar1.Buttons(7).Image = 16: Toolbar1.Buttons(8).Image = 17
Toolbar1.Buttons(7).Caption = "粘贴": Toolbar1.Buttons(8).Caption = "清除"
Toolbar1.Buttons(7).Tag = "Tool_Plaste": Toolbar1.Buttons(8).Tag = "Tool_Clear"
Menu_Plaste.Enabled = True: Menu_Clear.Enabled = True
End Sub
Private Sub Menu_API_Click()
Label1.Caption = "API函数"
BigStyle = "API函数"
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).MixedState = False
Next i
Toolbar1.Buttons(4).MixedState = True
Call ShowTree(BigStyle)
End Sub
Private Sub Menu_Author_Click()
ShellExecute Me.hwnd, "open", "", App.Path, 1, 0
End Sub
Private Sub Menu_Basic_Click()
Label1.Caption = "VB基础"
BigStyle = "VB基础"
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).MixedState = False
Next i
Toolbar1.Buttons(2).MixedState = True
Call ShowTree(BigStyle)
End Sub
Private Sub Menu_Big_Click()
RTB1.Font.Size = RTB1.Font.Size + 1
SaveSetting App.EXEName, "Font", "FontSize", RTB1.Font.Size
End Sub
Private Sub Menu_Consult_Click()
Label1.Caption = "语言参考"
BigStyle = "语言参考"
For i = 1 To Toolbar1.Buttons.Count
&n