【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-frmCreatePaper.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmCreatePaper
BorderStyle = 0 'None
Caption = "命题设置"
ClientHeight = 4740
ClientLeft = 3630
ClientTop = 2475
ClientWidth = 4515
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4740
ScaleWidth = 4515
ShowInTaskbar = 0 'False
Begin VB.CommandButton CmdCancel
Caption = "取消"
Height = 375
Left = 3120
TabIndex = 19
Top = 4200
Width = 1095
End
Begin VB.CommandButton CmdOk
Caption = "确定"
Height = 375
Left = 1680
TabIndex = 18
Top = 4200
Width = 1095
End
Begin VB.OptionButton OptTeacher
Caption = "教师命题"
Height = 495
Left = 240
TabIndex = 2
Top = 120
Value = -1 'True
Width = 1935
End
Begin VB.OptionButton OptAuto
Caption = "自动出题"
Height = 615
Left = 240
TabIndex = 1
Top = 600
Width = 1815
End
Begin VB.Frame FrmQues
Caption = "命题选项"
Enabled = 0 'False
Height = 2895
Left = 120
TabIndex = 0
Top = 1200
Width = 4215
Begin VB.TextBox Text5
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 15
Top = 2400
Width = 1080
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 12
Top = 1920
Width = 1080
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 9
Top = 1440
Width = 1080
End
Begin
VB.TextBox Text2
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 6
Top = 960
Width = 1080
End
Begin MSComCtl2.UpDown udFilling
Height = 285
Left = 3000
TabIndex = 5
Top = 480
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
BuddyControl = "Text1"
BuddyDispid = 196618
OrigLeft = 2880
OrigTop = 480
OrigRight = 3135
OrigBottom = 735
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 3
Top = 465
Width = 1080
End
Begin MSComCtl2.UpDown udROR
Height = 285
Left = 3000
TabIndex = 8
Top = 960
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
BuddyControl = "Text2"
BuddyDispid = 196617
OrigLeft = 2880
OrigTop = 975
OrigRight = 3135
OrigBottom = 1230
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown udSingleSel
Height = 285
Left = 3000
TabIndex = 11
Top = 1440
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
BuddyControl = "Text3"
BuddyDispid = 196616
OrigLeft = 3000
OrigTop = 1455
OrigRight = 3255
OrigBottom = 1710
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown udMultiSel
Height = 285
Left = 3000
TabIndex = 14
Top = 1920
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
BuddyControl = "Text4"
BuddyDispid = 196615
OrigLeft = 3000
OrigTop = 1920
OrigRight = 3255
OrigBottom = 2175
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown udEssayQ
Height = 285
Left = 3000
TabIndex = 17
Top = 2400
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
BuddyControl = "Text5"
BuddyDispid = 196614
OrigLeft = 3000
OrigTop = 2400
OrigRight = 3255
OrigBottom = 2655
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "问答题"
Height = 255
Left = 240
TabIndex = 16
Top = 2415
Width = 1215
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "多选题"
Height = 255
Left = 240
TabIndex = 13
Top = 1935
Width = 1215
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "单选题"
Height = 255
Left = 240
TabIndex = 10
Top = 1455
Width = 1215
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "判断题"
Height = 255
Left = 240
TabIndex = 7
Top = 975
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "填空题"
Height = 255
Left = 240
TabIndex = 4
Top = 480
Width = 1215
End
End
End
Attribute VB_Name = "frmCreatePaper"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub CmdOk_Click()
If OptTeacher.Value = True Then
DataEnv.DelQuestion
frmModifyPaper.Show vbModal
QPaper.Created = True
Else
QPaper.FillingNum = udFilling.Value
QPaper.RightWrongNum = udROR.Value
QPaper.SingleSelNum = udSingleSel.Value
QPaper.MultiSelNum = udMultiSel.Value
QPaper.EssayQuesNu
相关文章
2013-9-1
