VB+教学辅助系统(一)毕业论文网(6)

2013-05-07 01:03

导读：p; "" Chr(13) _ "" 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 =

p;   "" & Chr(13) & _
             "" & 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

（科教作文网http://zw.ΝsΕAc.com发布）

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

上一篇：电子教务管理系统vb(一)毕业论文下一篇：没有了