Next i
Toolbar1.Buttons(3).MixedState = True
Call ShowTree(BigStyle)
End Sub
Private Sub Menu_Copy_Click()
SendKeys "^C"
End Sub
Private Sub Menu_Del_Click()
On Error GoTo ERR:
If ExistRecord("code", "标题", Temptitle) = True Then
If MsgBox("你真的要删除此记录吗？", vbYesNo + vbExclamation, "警告") = vbYes Then
Dim adoprimarycmd As New ADODB.Command
adoprimarycmd.ActiveConnection = StrConnect
adoprimarycmd.CommandText = "delete * from code where 标题='" & Trim(Temptitle) & "'"
adoprimarycmd.Execute
Set adoprimarycmd = Nothing
RTB1.Text = ""
Call Form_Load
End If
Else
MsgBox "你必须先选择要删除的标题", vbOKOnly + vbCritical, "删除错误"
End If
Exit Sub
ERR:
MsgBox "你必须先选择要删除的标题", vbOKOnly + vbCritical, "删除错误"
End Sub
Private Sub Menu_Edit_Click()
On Error GoTo ERR:
If ExistRecord("code", "标题", TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)) = False Then
MsgBox "你必须先选择要修改的标题", vbOKOnly + vbCritical, "错误"
Exit Sub
End If
Frame5.Visible = True: Frame6.Visible = True: TreeView1.Visible = False
Label4.Caption = "（修改）"
Call SelFldtoCbo("code", "小类别", BigStyle, Cbostyle)
RTB1.Locked = False
RTB1.BackColor = RGB(255, 255, 255)
Cbostyle.Text = TreeView1.Nodes.Item(TreeView1.SelectedItem.Parent.Index)
TxTTitle.Text = Temptitle
EditCode = 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
Exit Sub
ERR:
MsgBox "你必须先选择要修改的标题", vbOKOnly + vbCritical, "错误"
End Sub
Private Sub Menu_Example_Click()
Label1.Caption = "经典事例"
BigStyle = "经典事例"
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).MixedState = False
Next i
Toolbar1.Buttons(5).MixedState = True
Call ShowTre