' 按钮的名称分别改为【老师】和【学生】 Prtivate Sub Form_Load() 老师.Enable = True 学生.Enable = False 老师.ToolTipText = "单击本按钮,变成【学生】按钮可以操作。" 学生.ToolTipText = "单击本按钮,变成【老师】按钮可以操作。" End Sub Private Sub 老师_Click() 老师.Enable = False 学生.Enable = True End Sub Private Sub 学生_Click() 老师.Enable = True 学生.Enable = False End Sub