📄 formcancelcourse.vb
字号:
Public Class FormCancelCourse Inherits FormBase#Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() '该调用是 Windows 窗体设计器所必需的。 InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写 dispose 以清理组件列表。 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 '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改此过程。 '不要使用代码编辑器修改它。 Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmbStudent As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cmbCollege As System.Windows.Forms.ComboBox
Friend WithEvents cmbProfession As System.Windows.Forms.ComboBox
Friend WithEvents dgCurriculum As System.Windows.Forms.DataGrid
Friend WithEvents DataGridTableStyle1 As System.Windows.Forms.DataGridTableStyle
Friend WithEvents dgcCheck As System.Windows.Forms.DataGridBoolColumn
Friend WithEvents dgcName As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents dgcClassroom As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents dgcClassTime As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents dgcTeacher As System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents dgcStuNum As System.Windows.Forms.DataGridTextBoxColumn
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FormCancelCourse))
Me.Label1 = New System.Windows.Forms.Label
Me.cmbStudent = New System.Windows.Forms.ComboBox
Me.dgCurriculum = New System.Windows.Forms.DataGrid
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.cmbCollege = New System.Windows.Forms.ComboBox
Me.cmbProfession = New System.Windows.Forms.ComboBox
Me.DataGridTableStyle1 = New System.Windows.Forms.DataGridTableStyle
Me.dgcCheck = New System.Windows.Forms.DataGridBoolColumn
Me.dgcName = New System.Windows.Forms.DataGridTextBoxColumn
Me.dgcClassroom = New System.Windows.Forms.DataGridTextBoxColumn
Me.dgcClassTime = New System.Windows.Forms.DataGridTextBoxColumn
Me.dgcTeacher = New System.Windows.Forms.DataGridTextBoxColumn
Me.dgcStuNum = New System.Windows.Forms.DataGridTextBoxColumn
CType(Me.dgCurriculum, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(64, 112)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(29, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "学生"
'
'cmbStudent
'
Me.cmbStudent.Location = New System.Drawing.Point(96, 104)
Me.cmbStudent.Name = "cmbStudent"
Me.cmbStudent.Size = New System.Drawing.Size(272, 20)
Me.cmbStudent.TabIndex = 1
Me.cmbStudent.Text = "请选择..."
'
'dgCurriculum
'
Me.dgCurriculum.CaptionVisible = False
Me.dgCurriculum.DataMember = ""
Me.dgCurriculum.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.dgCurriculum.Location = New System.Drawing.Point(16, 144)
Me.dgCurriculum.Name = "dgCurriculum"
Me.dgCurriculum.Size = New System.Drawing.Size(416, 168)
Me.dgCurriculum.TabIndex = 2
Me.dgCurriculum.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(64, 32)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(29, 17)
Me.Label2.TabIndex = 3
Me.Label2.Text = "学院"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(64, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(29, 17)
Me.Label3.TabIndex = 4
Me.Label3.Text = "专业"
'
'cmbCollege
'
Me.cmbCollege.Location = New System.Drawing.Point(96, 24)
Me.cmbCollege.Name = "cmbCollege"
Me.cmbCollege.Size = New System.Drawing.Size(272, 20)
Me.cmbCollege.TabIndex = 5
Me.cmbCollege.Text = "请选择..."
'
'cmbProfession
'
Me.cmbProfession.Location = New System.Drawing.Point(96, 64)
Me.cmbProfession.Name = "cmbProfession"
Me.cmbProfession.Size = New System.Drawing.Size(272, 20)
Me.cmbProfession.TabIndex = 6
Me.cmbProfession.Text = "请选择..."
'
'DataGridTableStyle1
'
Me.DataGridTableStyle1.DataGrid = Me.dgCurriculum
Me.DataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.dgcCheck, Me.dgcName, Me.dgcClassroom, Me.dgcClassTime, Me.dgcTeacher, Me.dgcStuNum})
Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGridTableStyle1.MappingName = ""
'
'dgcCheck
'
Me.dgcCheck.Alignment = System.Windows.Forms.HorizontalAlignment.Center
Me.dgcCheck.FalseValue = False
Me.dgcCheck.MappingName = ""
Me.dgcCheck.NullValue = CType(resources.GetObject("dgcCheck.NullValue"), Object)
Me.dgcCheck.TrueValue = True
Me.dgcCheck.Width = 20
'
'dgcName
'
Me.dgcName.Format = ""
Me.dgcName.FormatInfo = Nothing
Me.dgcName.HeaderText = "课程名"
Me.dgcName.MappingName = ""
Me.dgcName.Width = 80
'
'dgcClassroom
'
Me.dgcClassroom.Format = ""
Me.dgcClassroom.FormatInfo = Nothing
Me.dgcClassroom.HeaderText = "上课教室"
Me.dgcClassroom.MappingName = ""
'
'dgcClassTime
'
Me.dgcClassTime.Format = ""
Me.dgcClassTime.FormatInfo = Nothing
Me.dgcClassTime.HeaderText = "上课时间"
Me.dgcClassTime.MappingName = ""
'
'dgcTeacher
'
Me.dgcTeacher.Format = ""
Me.dgcTeacher.FormatInfo = Nothing
Me.dgcTeacher.HeaderText = "教师"
Me.dgcTeacher.MappingName = ""
Me.dgcTeacher.Width = 80
'
'dgcStuNum
'
Me.dgcStuNum.Format = ""
Me.dgcStuNum.FormatInfo = Nothing
Me.dgcStuNum.HeaderText = "已选人数"
Me.dgcStuNum.MappingName = ""
Me.dgcStuNum.ReadOnly = True
Me.dgcStuNum.Width = 30
'
'FormCancelCourse
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(648, 461)
Me.Name = "FormCancelCourse"
CType(Me.dgCurriculum, System.ComponentModel.ISupportInitialize).EndInit()
End Sub#End RegionEnd Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -