📄 modifypaper.vb
字号:
Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class frmModifyPaper
Inherits System.Windows.Forms.Form
#Region "Windows 窗体设计器生成的代码"
Public Sub New()
MyBase.New()
If m_vb6FormDefInstance Is Nothing Then
If m_InitializingDefInstance Then
m_vb6FormDefInstance = Me
Else
Try
'对于启动窗体，所创建的第一个实例为默认实例。
If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
m_vb6FormDefInstance = Me
End If
Catch
End Try
End If
End If
'此调用是 Windows 窗体设计器所必需的。
InitializeComponent()
End Sub
'窗体重写处置，以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents CmdLast As System.Windows.Forms.Button
Public WithEvents CmdNext As System.Windows.Forms.Button
Public WithEvents CmdPrev As System.Windows.Forms.Button
Public WithEvents CmdFirst As System.Windows.Forms.Button
Public WithEvents CmdFilter As System.Windows.Forms.Button
Public WithEvents OptFrame As System.Windows.Forms.GroupBox
Public WithEvents AddQ As System.Windows.Forms.Button
Public WithEvents DelQ As System.Windows.Forms.Button
Public WithEvents QstList As System.Windows.Forms.ListBox
Public WithEvents DataLib As AxMSDataGridLib.AxDataGrid
Public WithEvents LblPaper As System.Windows.Forms.Label
Public WithEvents LblTestLib As System.Windows.Forms.Label
Public WithEvents MainFrame As System.Windows.Forms.GroupBox
Public WithEvents CmdReport As System.Windows.Forms.Button
Public WithEvents CmdExit As System.Windows.Forms.Button
Public WithEvents OptEssayQ As System.Windows.Forms.RadioButton
Public WithEvents OptMulSel As System.Windows.Forms.RadioButton
Public WithEvents OptSglSel As System.Windows.Forms.RadioButton
Public WithEvents OptRorW As System.Windows.Forms.RadioButton
Public WithEvents OptFill As System.Windows.Forms.RadioButton
Public WithEvents FrameSel As System.Windows.Forms.GroupBox
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器来修改它。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmModifyPaper))
Me.components = New System.ComponentModel.Container()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
Me.ToolTip1.Active = True
Me.MainFrame = New System.Windows.Forms.GroupBox
Me.OptFrame = New System.Windows.Forms.GroupBox
Me.CmdLast = New System.Windows.Forms.Button
Me.CmdNext = New System.Windows.Forms.Button
Me.CmdPrev = New System.Windows.Forms.Button
Me.CmdFirst = New System.Windows.Forms.Button
Me.CmdFilter = New System.Windows.Forms.Button
Me.AddQ = New System.Windows.Forms.Button
Me.DelQ = New System.Windows.Forms.Button
Me.QstList = New System.Windows.Forms.ListBox
Me.DataLib = New AxMSDataGridLib.AxDataGrid
Me.LblPaper = New System.Windows.Forms.Label
Me.LblTestLib = New System.Windows.Forms.Label
Me.CmdReport = New System.Windows.Forms.Button
Me.CmdExit = New System.Windows.Forms.Button
Me.FrameSel = New System.Windows.Forms.GroupBox
Me.OptEssayQ = New System.Windows.Forms.RadioButton
Me.OptMulSel = New System.Windows.Forms.RadioButton
Me.OptSglSel = New System.Windows.Forms.RadioButton
Me.OptRorW = New System.Windows.Forms.RadioButton
Me.OptFill = New System.Windows.Forms.RadioButton
CType(Me.DataLib, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Text = "Form1"
Me.ClientSize = New System.Drawing.Size(528, 518)
Me.Location = New System.Drawing.Point(0, 0)
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ControlBox = True
Me.Enabled = True
Me.KeyPreview = False
Me.MaximizeBox = True
Me.MinimizeBox = True
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.HelpButton = False
Me.WindowState = System.Windows.Forms.FormWindowState.Normal
Me.Name = "frmModifyPaper"
Me.MainFrame.Size = New System.Drawing.Size(513, 369)
Me.MainFrame.Location = New System.Drawing.Point(8, 16)
Me.MainFrame.TabIndex = 8
Me.MainFrame.BackColor = System.Drawing.SystemColors.Control
Me.MainFrame.Enabled = True
Me.MainFrame.ForeColor = System.Drawing.SystemColors.ControlText
Me.MainFrame.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.MainFrame.Visible = True
Me.MainFrame.Name = "MainFrame"
Me.OptFrame.Text = "试题选择"
Me.OptFrame.Size = New System.Drawing.Size(265, 65)
Me.OptFrame.Location = New System.Drawing.Point(8, 288)
Me.OptFrame.TabIndex = 15
Me.OptFrame.BackColor = System.Drawing.SystemColors.Control
Me.OptFrame.Enabled = True
Me.OptFrame.ForeColor = System.Drawing.SystemColors.ControlText
Me.OptFrame.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.OptFrame.Visible = True
Me.OptFrame.Name = "OptFrame"
Me.CmdLast.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CmdLast.Text = ">|"
Me.CmdLast.Size = New System.Drawing.Size(41, 25)
Me.CmdLast.Location = New System.Drawing.Point(128, 24)
Me.CmdLast.TabIndex = 20
Me.CmdLast.BackColor = System.Drawing.SystemColors.Control
Me.CmdLast.CausesValidation = True
Me.CmdLast.Enabled = True
Me.CmdLast.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdLast.Cursor = System.Windows.Forms.Cursors.Default
Me.CmdLast.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CmdLast.TabStop = True
Me.CmdLast.Name = "CmdLast"
Me.CmdNext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CmdNext.Text = ">"
Me.CmdNext.Size = New System.Drawing.Size(41, 25)
Me.CmdNext.Location = New System.Drawing.Point(88, 24)
Me.CmdNext.TabIndex = 19
Me.CmdNext.BackColor = System.Drawing.SystemColors.Control
Me.CmdNext.CausesValidation = True
Me.CmdNext.Enabled = True
Me.CmdNext.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdNext.Cursor = System.Windows.Forms.Cursors.Default
Me.CmdNext.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CmdNext.TabStop = True
Me.CmdNext.Name = "CmdNext"
Me.CmdPrev.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CmdPrev.Text = "<"
Me.CmdPrev.Size = New System.Drawing.Size(41, 25)
Me.CmdPrev.Location = New System.Drawing.Point(48, 24)
Me.CmdPrev.TabIndex = 18
Me.CmdPrev.BackColor = System.Drawing.SystemColors.Control
Me.CmdPrev.CausesValidation = True
Me.CmdPrev.Enabled = True
Me.CmdPrev.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdPrev.Cursor = System.Windows.Forms.Cursors.Default
Me.CmdPrev.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CmdPrev.TabStop = True
Me.CmdPrev.Name = "CmdPrev"
Me.CmdFirst.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CmdFirst.Text = "|<"
Me.CmdFirst.Size = New System.Drawing.Size(41, 25)
Me.CmdFirst.Location = New System.Drawing.Point(8, 24)
Me.CmdFirst.TabIndex = 17
Me.CmdFirst.BackColor = System.Drawing.SystemColors.Control
Me.CmdFirst.CausesValidation = True
Me.CmdFirst.Enabled = True
Me.CmdFirst.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdFirst.Cursor = System.Windows.Forms.Cursors.Default
Me.CmdFirst.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CmdFirst.TabStop = True
Me.CmdFirst.Name = "CmdFirst"
Me.CmdFilter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CmdFilter.Text = "查询设置"
Me.CmdFilter.Size = New System.Drawing.Size(65, 25)
Me.CmdFilter.Location = New System.Drawing.Point(192, 24)
Me.CmdFilter.TabIndex = 16
Me.CmdFilter.BackColor = System.Drawing.SystemColors.Control
Me.CmdFilter.CausesValidation = True
Me.CmdFilter.Enabled = True
Me.CmdFilter.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdFilter.Cursor = System.Windows.Forms.Cursors.Default
Me.CmdFilter.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CmdFilter.TabStop = True
Me.CmdFilter.Name = "CmdFilter"
Me.AddQ.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.AddQ.Text = "==>>"
Me.AddQ.Size = New System.Drawing.Size(49, 25)
Me.AddQ.Location = New System.Drawing.Point(256, 104)
Me.AddQ.TabIndex = 11
Me.AddQ.BackColor = System.Drawing.SystemColors.Control
Me.AddQ.CausesValidation = True
Me.AddQ.Enabled = True
Me.AddQ.ForeColor = System.Drawing.SystemColors.ControlText
Me.AddQ.Cursor = System.Windows.Forms.Cursors.Default
Me.AddQ.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.AddQ.TabStop = True
Me.AddQ.Name = "AddQ"
Me.DelQ.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.DelQ.Text = "<<=="
Me.DelQ.Size = New System.Drawing.Size(49, 25)
Me.DelQ.Location = New System.Drawing.Point(256, 160)
Me.DelQ.TabIndex = 10
Me.DelQ.BackColor = System.Drawing.SystemColors.Control
Me.DelQ.CausesValidation = True
Me.DelQ.Enabled = True
Me.DelQ.ForeColor = System.Drawing.SystemColors.ControlText
Me.DelQ.Cursor = System.Windows.Forms.Cursors.Default
Me.DelQ.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DelQ.TabStop = True
Me.DelQ.Name = "DelQ"
Me.QstList.Size = New System.Drawing.Size(193, 295)
Me.QstList.Location = New System.Drawing.Point(312, 48)
Me.QstList.TabIndex = 9
Me.QstList.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.QstList.BackColor = System.Drawing.SystemColors.Window
Me.QstList.CausesValidation = True
Me.QstList.Enabled = True
Me.QstList.ForeColor = System.Drawing.SystemColors.WindowText
Me.QstList.IntegralHeight = True
Me.QstList.Cursor = System.Windows.Forms.Cursors.Default
Me.QstList.SelectionMode = System.Windows.Forms.SelectionMode.One
Me.QstList.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.QstList.Sorted = False
Me.QstList.TabStop = True
Me.QstList.Visible = True
Me.QstList.MultiColumn = False
Me.QstList.Name = "QstList"
DataLib.OcxState = CType(resources.GetObject("DataLib.OcxState"), System.Windows.Forms.AxHost.State)
Me.DataLib.Size = New System.Drawing.Size(233, 233)
Me.DataLib.Location = New System.Drawing.Point(8, 48)
Me.DataLib.TabIndex = 12
Me.DataLib.Name = "DataLib"
Me.LblPaper.Text = "试卷"
Me.LblPaper.Font = New System.Drawing.Font("隶书", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.LblPaper.ForeColor = System.Drawing.Color.Blue
Me.LblPaper.Size = New System.Drawing.Size(185, 25)
Me.LblPaper.Location = New System.Drawing.Point(312, 16)
Me.LblPaper.TabIndex = 14
Me.LblPaper.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me.LblPaper.BackColor = System.Drawing.SystemColors.Control
Me.LblPaper.Enabled = True
Me.LblPaper.Cursor = System.Windows.Forms.Cursors.Default
Me.LblPaper.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.LblPaper.UseMnemonic = True
Me.LblPaper.Visible = True
Me.LblPaper.AutoSize = False
Me.LblPaper.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.LblPaper.Name = "LblPaper"
Me.LblTestLib.Text = "题库"
Me.LblTestLib.Font = New System.Drawing.Font("隶书", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.LblTestLib.ForeColor = System.Drawing.Color.Blue
Me.LblTestLib.Size = New System.Drawing.Size(225, 25)
Me.LblTestLib.Location = New System.Drawing.Point(16, 16)
Me.LblTestLib.TabIndex = 13
Me.LblTestLib.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me.LblTestLib.BackColor = System.Drawing.SystemColors.Control
Me.LblTestLib.Enabled = True
Me.LblTestLib.Cursor = System.Windows.Forms.Cursors.Default
Me.LblTestLib.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.LblTestLib.UseMnemonic = True
Me.LblTestLib.Visible = True
Me.LblTestLib.AutoSize = False
Me.LblTestLib.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.LblTestLib.Name = "LblTestLib"
Me.CmdReport.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CmdReport.Text = "试卷报表"
Me.CmdReport.Size = New System.Drawing.Size(89, 33)
Me.CmdReport.Location = New System.Drawing.Point(328, 472)
Me.CmdReport.TabIndex = 7
Me.CmdReport.BackColor = System.Drawing.SystemColors.Control
Me.CmdReport.CausesValidation = True
Me.CmdReport.Enabled = True
Me.CmdReport.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdReport.Cursor = System.Windows.Forms.Cursors.Default
Me.CmdReport.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CmdReport.TabStop = True
Me.CmdReport.Name = "CmdReport"
Me.CmdExit.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.CmdExit.Text = "退出"
Me.CmdExit.Size = New System.Drawing.Size(89, 33)
Me.CmdExit.Location = New System.Drawing.Point(424, 472)
Me.CmdExit.TabIndex = 6
Me.CmdExit.BackColor = System.Drawing.SystemColors.Control
Me.CmdExit.CausesValidation = True
Me.CmdExit.Enabled = True
Me.CmdExit.ForeColor = System.Drawing.SystemColors.ControlText
Me.CmdExit.Cursor = System.Windows.Forms.Cursors.Default
Me.CmdExit.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CmdExit.TabStop = True
Me.CmdExit.Name = "CmdExit"
Me.FrameSel.Text = "题型"
Me.FrameSel.Size = New System.Drawing.Size(513, 73)
Me.FrameSel.Location = New System.Drawing.Point(8, 392)
Me.FrameSel.TabIndex = 0
Me.FrameSel.BackColor = System.Drawing.SystemColors.Control
Me.FrameSel.Enabled = True
Me.FrameSel.ForeColor = System.Drawing.SystemColors.ControlText
Me.FrameSel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.FrameSel.Visible = True
Me.FrameSel.Name = "FrameSel"
Me.OptEssayQ.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.OptEssayQ.Text = "问答题"
Me.OptEssayQ.Size = New System.Drawing.Size(81, 17)
Me.OptEssayQ.Location = New System.Drawing.Point(408, 32)
Me.OptEssayQ.TabIndex = 5
Me.OptEssayQ.CheckAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.OptEssayQ.BackColor = System.Drawing.SystemColors.Control
Me.OptEssayQ.CausesValidation = True
Me.OptEssayQ.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -