📄 frmshijuan.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 990
TabIndex = 83
Top = 225
Width = 720
End
End
Begin VB.Frame Frame28
Height = 735
Left = 5070
TabIndex = 75
Top = 5715
Width = 4545
Begin VB.CommandButton CmdPDSJ
Caption = "随机生成"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 870
TabIndex = 77
Top = 225
Width = 1395
End
Begin VB.CommandButton CmdPDOld
Caption = "从旧试卷生成"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2445
TabIndex = 76
Top = 225
Width = 1920
End
End
Begin VB.Frame Frame29
Height = 6690
Left = 180
TabIndex = 78
Top = 165
Width = 1725
Begin VB.ListBox LstPD
Appearance = 0 'Flat
BackColor = &H00E8F4F8&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6030
ItemData = "FrmShiJuan.frx":00A1
Left = 165
List = "FrmShiJuan.frx":00AB
Sorted = -1 'True
TabIndex = 80
ToolTipText = "双击加入所选中的题目"
Top = 555
Width = 1380
End
Begin VB.ComboBox CmbPD
BackColor = &H00E8F4F8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "FrmShiJuan.frx":00BF
Left = 600
List = "FrmShiJuan.frx":00CF
Style = 2 'Dropdown List
TabIndex = 79
Top = 165
Width = 750
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "难度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 75
TabIndex = 81
Top = 210
Width = 420
End
End
End
Begin VB.Frame FraTK
Caption = "试卷生成--填空题选择"
ForeColor = &H00FF0000&
Height = 6960
Left = 2640
TabIndex = 23
Top = 7440
Visible = 0 'False
Width = 11475
Begin VB.Frame Frame15
Caption = "填空题答案"
Height = 5160
Left = 7695
TabIndex = 38
Top = 165
Width = 3705
Begin RichTextLib.RichTextBox RTBTKD
Height = 4830
Left = 60
TabIndex = 39
Top = 270
Width = 3570
_ExtentX = 6297
_ExtentY = 8520
_Version = 393217
BackColor = 15267064
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
Appearance = 0
TextRTF = $"FrmShiJuan.frx":00E5
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame14
Caption = "题目预览"
Height = 5160
Left = 3060
TabIndex = 33
Top = 165
Width = 4590
Begin RichTextLib.RichTextBox RTBTKT
Height = 4830
Left = 60
TabIndex = 34
Top = 270
Width = 4455
_ExtentX = 7858
_ExtentY = 8520
_Version = 393217
BackColor = 15267064
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
Appearance = 0
TextRTF = $"FrmShiJuan.frx":0182
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame13
Caption = "所选题目"
Height = 5160
Left = 1965
TabIndex = 31
Top = 165
Width = 1035
Begin VB.ListBox LstTKT
Appearance = 0 'Flat
BackColor = &H00E8F4F8&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4830
ItemData = "FrmShiJuan.frx":021F
Left = 90
List = "FrmShiJuan.frx":0221
Sorted = -1 'True
TabIndex = 32
Top = 225
Width = 885
End
End
Begin VB.Frame Frame12
Height = 735
Left = 3090
TabIndex = 28
Top = 5715
Width = 1890
Begin VB.CommandButton CmdTKAdd
Caption = "添加"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 150
TabIndex = 30
Top = 225
Width = 720
End
Begin VB.CommandButton CmdTKDel
Caption = "移除"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 990
TabIndex = 29
Top = 225
Width = 720
End
End
Begin VB.Frame Frame11
Height = 6690
Left = 180
TabIndex = 27
Top = 165
Width = 1725
Begin VB.ListBox LstTK
Appearance = 0 'Flat
BackColor = &H00E8F4F8&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6030
ItemData = "FrmShiJuan.frx":0223
Left = 165
List = "FrmShiJuan.frx":022D
Sorted = -1 'True
TabIndex = 36
ToolTipText = "双击加入所选中的题目"
Top = 555
Width = 1380
End
Begin VB.ComboBox CmbTK
BackColor = &H00E8F4F8&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "FrmShiJuan.frx":0241
Left = 600
List = "FrmShiJuan.frx":0251
Style = 2 'Dropdown List
TabIndex = 35
Top = 165
Width = 750
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "难度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 75
TabIndex = 37
Top = 210
Width = 420
End
End
Begin VB.Frame Frame9
Height = 735
Left = 5070
TabIndex = 24
Top = 5715
Width = 4545
Begin VB.CommandButton CmdTKSJ
Caption = "随机生成"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 870
TabIndex = 26
Top = 225
Width = 1395
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -