📄 form1.vb
字号:
'TabPage4
'
Me.TabPage4.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(224, Byte), CType(192, Byte))
Me.TabPage4.Controls.Add(Me.DateTimePicker2)
Me.TabPage4.Controls.Add(Me.DateTimePicker1)
Me.TabPage4.Controls.Add(Me.ComboBox4)
Me.TabPage4.Controls.Add(Me.Label26)
Me.TabPage4.Controls.Add(Me.DataGrid1)
Me.TabPage4.Controls.Add(Me.Label25)
Me.TabPage4.Controls.Add(Me.Label24)
Me.TabPage4.Controls.Add(Me.SearchBut)
Me.TabPage4.Controls.Add(Me.OutBut)
Me.TabPage4.Location = New System.Drawing.Point(4, 28)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(1032, 560)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "查询"
'
'DateTimePicker2
'
Me.DateTimePicker2.CalendarForeColor = System.Drawing.Color.Green
Me.DateTimePicker2.CalendarTitleBackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(192, Byte))
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Short
Me.DateTimePicker2.Location = New System.Drawing.Point(104, 240)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.Size = New System.Drawing.Size(160, 29)
Me.DateTimePicker2.TabIndex = 21
'
'DateTimePicker1
'
Me.DateTimePicker1.CalendarForeColor = System.Drawing.Color.Green
Me.DateTimePicker1.CalendarTitleBackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(192, Byte))
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Short
Me.DateTimePicker1.Location = New System.Drawing.Point(104, 152)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(160, 29)
Me.DateTimePicker1.TabIndex = 20
'
'ComboBox4
'
Me.ComboBox4.Items.AddRange(New Object() {"1＃", "2＃", "3＃", "4＃"})
Me.ComboBox4.Location = New System.Drawing.Point(176, 64)
Me.ComboBox4.Name = "ComboBox4"
Me.ComboBox4.Size = New System.Drawing.Size(88, 27)
Me.ComboBox4.TabIndex = 10
'
'Label26
'
Me.Label26.ForeColor = System.Drawing.Color.Green
Me.Label26.Location = New System.Drawing.Point(8, 64)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(168, 23)
Me.Label26.TabIndex = 9
Me.Label26.Text = "请选择Bake炉号："
'
'DataGrid1
'
Me.DataGrid1.BackgroundColor = System.Drawing.Color.White
Me.DataGrid1.CaptionBackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
Me.DataGrid1.DataMember = ""
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(272, 0)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(736, 560)
Me.DataGrid1.TabIndex = 7
Me.DataGrid1.Visible = False
'
'Label25
'
Me.Label25.ForeColor = System.Drawing.Color.Green
Me.Label25.Location = New System.Drawing.Point(8, 208)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(160, 23)
Me.Label25.TabIndex = 6
Me.Label25.Text = "查询 结束时间："
'
'Label24
'
Me.Label24.ForeColor = System.Drawing.Color.Green
Me.Label24.Location = New System.Drawing.Point(8, 120)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(160, 24)
Me.Label24.TabIndex = 5
Me.Label24.Text = "查询 开始时间："
'
'SearchBut
'
Me.SearchBut.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(192, Byte))
Me.SearchBut.Location = New System.Drawing.Point(72, 328)
Me.SearchBut.Name = "SearchBut"
Me.SearchBut.Size = New System.Drawing.Size(88, 40)
Me.SearchBut.TabIndex = 1
Me.SearchBut.Text = "查询"
'
'OutBut
'
Me.OutBut.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(192, Byte))
Me.OutBut.Location = New System.Drawing.Point(72, 400)
Me.OutBut.Name = "OutBut"
Me.OutBut.Size = New System.Drawing.Size(88, 40)
Me.OutBut.TabIndex = 0
Me.OutBut.Text = "导出"
'
'TabPage2
'
Me.TabPage2.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(224, Byte), CType(192, Byte))
Me.TabPage2.Controls.Add(Me.Label23)
Me.TabPage2.Controls.Add(Me.ComboBox1)
Me.TabPage2.Controls.Add(Me.Label19)
Me.TabPage2.Controls.Add(Me.AdjTxt)
Me.TabPage2.Controls.Add(Me.Label18)
Me.TabPage2.Location = New System.Drawing.Point(4, 28)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(1032, 560)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "校准"
'
'Label23
'
Me.Label23.ForeColor = System.Drawing.Color.Maroon
Me.Label23.Location = New System.Drawing.Point(496, 216)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(112, 40)
Me.Label23.TabIndex = 4
Me.Label23.Text = "按回车键确定此次输入"
'
'ComboBox1
'
Me.ComboBox1.Items.AddRange(New Object() {"1＃", "2＃", "3＃", "4＃"})
Me.ComboBox1.Location = New System.Drawing.Point(288, 128)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(136, 27)
Me.ComboBox1.TabIndex = 3
'
'Label19
'
Me.Label19.ForeColor = System.Drawing.Color.Green
Me.Label19.Location = New System.Drawing.Point(80, 128)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(208, 24)
Me.Label19.TabIndex = 2
Me.Label19.Text = "请选择校准Bake炉号："
'
'AdjTxt
'
Me.AdjTxt.Location = New System.Drawing.Point(288, 224)
Me.AdjTxt.Name = "AdjTxt"
Me.AdjTxt.Size = New System.Drawing.Size(144, 29)
Me.AdjTxt.TabIndex = 1
Me.AdjTxt.Text = ""
'
'Label18
'
Me.Label18.Font = New System.Drawing.Font("楷体_GB2312", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label18.ForeColor = System.Drawing.Color.Green
Me.Label18.Location = New System.Drawing.Point(128, 232)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(168, 24)
Me.Label18.TabIndex = 0
Me.Label18.Text = "请输入校准温度："
'
'TabPage3
'
Me.TabPage3.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(224, Byte), CType(192, Byte))
Me.TabPage3.Controls.Add(Me.ComboBox3)
Me.TabPage3.Controls.Add(Me.Label21)
Me.TabPage3.Controls.Add(Me.ComboBox2)
Me.TabPage3.Controls.Add(Me.Label20)
Me.TabPage3.Location = New System.Drawing.Point(4, 28)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(1032, 560)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "修改"
'
'ComboBox3
'
Me.ComboBox3.Items.AddRange(New Object() {"1＃", "2＃", "3＃", "4＃"})
Me.ComboBox3.Location = New System.Drawing.Point(280, 208)
Me.ComboBox3.Name = "ComboBox3"
Me.ComboBox3.Size = New System.Drawing.Size(168, 27)
Me.ComboBox3.TabIndex = 3
'
'Label21
'
Me.Label21.ForeColor = System.Drawing.Color.Green
Me.Label21.Location = New System.Drawing.Point(80, 216)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(208, 24)
Me.Label21.TabIndex = 2
Me.Label21.Text = "请选择修改Bake炉号："
'
'ComboBox2
'
Me.ComboBox2.Items.AddRange(New Object() {"1＃", "2＃", "3＃", "4＃"})
Me.ComboBox2.Location = New System.Drawing.Point(280, 112)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(168, 27)
Me.ComboBox2.TabIndex = 1
'
'Label20
'
Me.Label20.ForeColor = System.Drawing.Color.Green
Me.Label20.Location = New System.Drawing.Point(96, 112)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(184, 24)
Me.Label20.TabIndex = 0
Me.Label20.Text = "请选择原Bake炉号："
'
'Label22
'
Me.Label22.Font = New System.Drawing.Font("楷体_GB2312", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label22.ForeColor = System.Drawing.Color.Maroon
Me.Label22.Location = New System.Drawing.Point(720, 8)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(208, 40)
Me.Label22.TabIndex = 24
Me.Label22.Text = "请先去掉不需显示的Bake炉号，然后按开始"
'
'StateTxt
'
Me.StateTxt.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
Me.StateTxt.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.StateTxt.Location = New System.Drawing.Point(272, 680)
Me.StateTxt.Name = "StateTxt"
Me.StateTxt.Size = New System.Drawing.Size(736, 21)
Me.StateTxt.TabIndex = 25
Me.StateTxt.Text = ""
'
'Timer2
'
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(10, 22)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(1016, 702)
Me.Controls.Add(Me.StateTxt)
Me.Controls.Add(Me.Label22)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.StartBut)
Me.Controls.Add(Me.MSComm1)
Me.Controls.Add(Me.ExitBut)
Me.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.ForeColor = System.Drawing.Color.Blue
Me.MaximizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "电机测试平台基本输入输出测试例程"
CType(Me.MSComm1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage4.ResumeLayout(False)
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
REM 全局变量声明
Dim SendData() As Byte '发送数组
Dim RecvData() As Byte '接收数组
Dim Flag As Boolean '避免发送事件中断接收事件
Dim ShowFlag1, ShowFlag2, ShowFlag3, ShowFlag4 As Boolean
Public Shared frmMain As Form1
Dim filename As String '导出的文件名
Dim SearchMCUno As Integer
Dim SearchStartDate As String
Dim objCmd As New OleDbCommand
Dim objDA As OleDbDataAdapter
Dim objTB As DataTable
Dim objts As New DataGridTableStyle '记录查询选项卡中的TableStyle？？？？？？？？？？？？
Public SecondSet1(10), SecondSet2(10), SecondSet3(10), SecondSet4(10) As Byte
Public CurrentTmpSet1(10), CurrentTmpSet2(10), CurrentTmpSet3(10), CurrentTmpSet4(10) As Integer
Public InDBFlag As Boolean = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -