?? adminform.vb
字號:
Public Class AdminForm
Private Sub 密碼修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 密碼修改ToolStripMenuItem.Click
ModifyKeyForm.SetUserMode(UserMode.AdminMode)
ModifyKeyForm.Show()
End Sub
Private Sub 學生管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 學生管理ToolStripMenuItem.Click
AdminManageStudentForm.Show()
End Sub
Private Sub 教師管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 教師管理ToolStripMenuItem.Click
AdminManageTeacherForm.Show()
End Sub
Private Sub 教務人員管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 教務人員管理ToolStripMenuItem.Click
AdminManageEduForm.Show()
End Sub
Private Sub 通知與通告ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 通知與通告ToolStripMenuItem1.Click
StudentTeacherReceiveInfoForm.Show()
End Sub
Private Sub 關于系統ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 關于系統ToolStripMenuItem.Click
AboutForm.Show()
End Sub
Private Sub 退出系統ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系統ToolStripMenuItem.Click
Dim response As Integer = MsgBox("確定退出系統?", vbOKCancel + vbQuestion, "退出")
If response = 1 Then
End
End If
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -