VB+教学辅助系统(八)

Private Sub Menu_Exit_Click()
    End
End Sub

Private Sub Menu_Print_Click()
    MsgBox "系统找不到打印机."
End Sub

Private Sub Menu_SelAll_Click()
    RTB1.SetFocus
    RTB1.SelStart = 0
    RTB1.SelLength = Len(RTB1.Text)
End Sub

Private Sub Menu_Small_Click()
     RTB1.Font.Size = RTB1.Font.Size - 1
     SaveSetting App.EXEName, "Font", "FontSize", RTB1.Font.Size
End Sub

Private Sub Timer1_Timer()
    StatusBar1.Panels(1).Text = "      " & Format(Date, "long date") & "   " & Time & "     "
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case Button.Tag
        Case "Tool_Basic"
            Call Menu_Basic_Click
        Case "Tool_Consult"
            Call Menu_Consult_Click
        Case "Tool_API"
            Call Menu_API_Click
        Case "Tool_Example"
            Call Menu_Example_Click
        Case "Tool_SelAll"
            Call Menu_SelAll_Click
        Case "Tool_Copy"
            Call Menu_Copy_Click
        Case "Tool_Plaste"
            Call Menu_Plaste_Click
        Case "Tool_Clear"
            Call Menu_Clear_Click
        Case "Tool_Print"
            Call Menu_Print_Click
        Case "Tool_Add"
            Call Menu_Add_Click
        Case "Tool_Edit"
            Call Menu_Edit_Click
        Case "Tool_Del"
            Call Menu_Del_Click
        Case "Tool_Author"
            Call Menu_Author_Click
        Case "Tool_About"
            Call Menu_About_Click
        Case "Tool_Exit"
            Call Menu_Exit_Cli

首页 上一页 5 6 7 8 9 下一页 尾页 8/9/9