menu.frm

vb.net开发的考试系统,界面美观

VERSION 5.00
Begin VB.Form menu 
   Caption         =   "menu"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form3"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu ks_mode 
      Caption         =   "模式"
      Begin VB.Menu study_mode 
         Caption         =   "学习模式"
      End
      Begin VB.Menu exam_mode 
         Caption         =   "考试模式"
      End
   End
End
Attribute VB_Name = "menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub exam_mode_Click()
'区别在于学习模式即时提供答案并说明题目的重点，而考试模式没有，考试结果交给服务器进行评分
ksmode = 1
Form1.txtRecive.SelText = Form1.txtRecive.SelText & login_admin & "将考试模式设定为考试模式" & vbCrLf
End Sub

Private Sub study_mode_Click() '选择学习模式按钮
ksmode = 0
Form1.txtRecive.SelText = Form1.txtRecive.SelText & login_admin & "将考试模式设定为学习模式" & vbCrLf
End Sub