www.pudn.com > zzksxt.rar > menu.frm, change:2006-11-14,size:1135b


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