_ Partial Class SetingSerialPort Inherits System.Windows.Forms.Form 'Form 重写 Dispose,以清理组件列表。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。 _ Private Sub InitializeComponent() Me.port1 = New System.Windows.Forms.ComboBox() Me.boot1 = New System.Windows.Forms.ComboBox() Me.Button1 = New System.Windows.Forms.Button() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Button2 = New System.Windows.Forms.Button() Me.boot2 = New System.Windows.Forms.ComboBox() Me.port2 = New System.Windows.Forms.ComboBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.Button3 = New System.Windows.Forms.Button() Me.boot3 = New System.Windows.Forms.ComboBox() Me.port3 = New System.Windows.Forms.ComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.Button4 = New System.Windows.Forms.Button() Me.boot4 = New System.Windows.Forms.ComboBox() Me.port4 = New System.Windows.Forms.ComboBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'port1 ' Me.port1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.port1.FormattingEnabled = True Me.port1.Location = New System.Drawing.Point(89, 23) Me.port1.Name = "port1" Me.port1.Size = New System.Drawing.Size(121, 20) Me.port1.TabIndex = 0 Me.port1.Tag = "1" ' 'boot1 ' Me.boot1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.boot1.FormattingEnabled = True Me.boot1.Items.AddRange(New Object() {"1200", "2400", "4800", "9600", "19200", "38400", "57600", "115200", "256000", "512000", "9216000", "1000000"}) Me.boot1.Location = New System.Drawing.Point(233, 23) Me.boot1.Name = "boot1" Me.boot1.Size = New System.Drawing.Size(121, 20) Me.boot1.TabIndex = 1 Me.boot1.Tag = "1" ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(537, 22) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(51, 23) Me.Button1.TabIndex = 2 Me.Button1.Tag = "1" Me.Button1.Text = "..." Me.Button1.UseVisualStyleBackColor = True ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(364, 23) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(158, 21) Me.TextBox1.TabIndex = 3 Me.TextBox1.Tag = "1" Me.TextBox1.Text = "串口一" Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'CheckBox1 ' Me.CheckBox1.AutoSize = True Me.CheckBox1.Location = New System.Drawing.Point(41, 25) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(15, 14) Me.CheckBox1.TabIndex = 4 Me.CheckBox1.Tag = "1" Me.CheckBox1.UseVisualStyleBackColor = True ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True Me.CheckBox2.Location = New System.Drawing.Point(41, 67) Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Size = New System.Drawing.Size(15, 14) Me.CheckBox2.TabIndex = 9 Me.CheckBox2.Tag = "2" Me.CheckBox2.UseVisualStyleBackColor = True ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(364, 65) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(158, 21) Me.TextBox2.TabIndex = 8 Me.TextBox2.Tag = "2" Me.TextBox2.Text = "串口二" Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Button2 ' Me.Button2.Location = New System.Drawing.Point(537, 64) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(51, 23) Me.Button2.TabIndex = 7 Me.Button2.Tag = "2" Me.Button2.Text = "..." Me.Button2.UseVisualStyleBackColor = True ' 'boot2 ' Me.boot2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.boot2.FormattingEnabled = True Me.boot2.Items.AddRange(New Object() {"1200", "2400", "4800", "9600", "19200", "38400", "57600", "115200", "256000", "512000", "9216000", "1000000"}) Me.boot2.Location = New System.Drawing.Point(233, 65) Me.boot2.Name = "boot2" Me.boot2.Size = New System.Drawing.Size(121, 20) Me.boot2.TabIndex = 6 Me.boot2.Tag = "2" ' 'port2 ' Me.port2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.port2.FormattingEnabled = True Me.port2.Location = New System.Drawing.Point(89, 65) Me.port2.Name = "port2" Me.port2.Size = New System.Drawing.Size(121, 20) Me.port2.TabIndex = 5 Me.port2.Tag = "2" ' 'CheckBox3 ' Me.CheckBox3.AutoSize = True Me.CheckBox3.Location = New System.Drawing.Point(41, 109) Me.CheckBox3.Name = "CheckBox3" Me.CheckBox3.Size = New System.Drawing.Size(15, 14) Me.CheckBox3.TabIndex = 14 Me.CheckBox3.Tag = "3" Me.CheckBox3.UseVisualStyleBackColor = True ' 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(364, 107) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(158, 21) Me.TextBox3.TabIndex = 13 Me.TextBox3.Tag = "3" Me.TextBox3.Text = "串口三" Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(537, 106) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(51, 23) Me.Button3.TabIndex = 12 Me.Button3.Tag = "3" Me.Button3.Text = "..." Me.Button3.UseVisualStyleBackColor = True ' 'boot3 ' Me.boot3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.boot3.FormattingEnabled = True Me.boot3.Items.AddRange(New Object() {"1200", "2400", "4800", "9600", "19200", "38400", "57600", "115200", "256000", "512000", "9216000", "1000000"}) Me.boot3.Location = New System.Drawing.Point(233, 107) Me.boot3.Name = "boot3" Me.boot3.Size = New System.Drawing.Size(121, 20) Me.boot3.TabIndex = 11 Me.boot3.Tag = "3" ' 'port3 ' Me.port3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.port3.FormattingEnabled = True Me.port3.Location = New System.Drawing.Point(89, 107) Me.port3.Name = "port3" Me.port3.Size = New System.Drawing.Size(121, 20) Me.port3.TabIndex = 10 Me.port3.Tag = "3" ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True Me.CheckBox4.Location = New System.Drawing.Point(41, 151) Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Size = New System.Drawing.Size(15, 14) Me.CheckBox4.TabIndex = 19 Me.CheckBox4.Tag = "4" Me.CheckBox4.UseVisualStyleBackColor = True ' 'TextBox4 ' Me.TextBox4.Location = New System.Drawing.Point(364, 149) Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(158, 21) Me.TextBox4.TabIndex = 18 Me.TextBox4.Tag = "4" Me.TextBox4.Text = "串口四" Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Button4 ' Me.Button4.Location = New System.Drawing.Point(537, 148) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(51, 23) Me.Button4.TabIndex = 17 Me.Button4.Tag = "4" Me.Button4.Text = "..." Me.Button4.UseVisualStyleBackColor = True ' 'boot4 ' Me.boot4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.boot4.FormattingEnabled = True Me.boot4.Items.AddRange(New Object() {"1200", "2400", "4800", "9600", "19200", "38400", "57600", "115200", "256000", "512000", "9216000", "1000000"}) Me.boot4.Location = New System.Drawing.Point(233, 149) Me.boot4.Name = "boot4" Me.boot4.Size = New System.Drawing.Size(121, 20) Me.boot4.TabIndex = 16 Me.boot4.Tag = "4" ' 'port4 ' Me.port4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.port4.FormattingEnabled = True Me.port4.Location = New System.Drawing.Point(89, 149) Me.port4.Name = "port4" Me.port4.Size = New System.Drawing.Size(121, 20) Me.port4.TabIndex = 15 Me.port4.Tag = "4" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(10, 7) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(77, 12) Me.Label1.TabIndex = 20 Me.Label1.Text = "选择通信串口" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(123, 7) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(53, 12) Me.Label2.TabIndex = 21 Me.Label2.Text = "通信串口" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(249, 8) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(89, 12) Me.Label3.TabIndex = 22 Me.Label3.Text = "通信串口波特率" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(405, 7) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(77, 12) Me.Label4.TabIndex = 23 Me.Label4.Text = "通信串口别名" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(535, 7) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(53, 12) Me.Label5.TabIndex = 24 Me.Label5.Text = "设置颜色" ' 'Button5 ' Me.Button5.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Me.Button5.Location = New System.Drawing.Point(467, 177) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(120, 52) Me.Button5.TabIndex = 25 Me.Button5.Text = "保存" Me.Button5.UseVisualStyleBackColor = True ' 'SetingSerialPort ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(593, 232) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.CheckBox4) Me.Controls.Add(Me.TextBox4) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.boot4) Me.Controls.Add(Me.port4) Me.Controls.Add(Me.CheckBox3) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.boot3) Me.Controls.Add(Me.port3) Me.Controls.Add(Me.CheckBox2) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.boot2) Me.Controls.Add(Me.port2) Me.Controls.Add(Me.CheckBox1) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.boot1) Me.Controls.Add(Me.port1) Me.Name = "SetingSerialPort" Me.Text = "设置串口" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents port1 As ComboBox Friend WithEvents boot1 As ComboBox Friend WithEvents Button1 As Button Friend WithEvents TextBox1 As TextBox Friend WithEvents CheckBox1 As CheckBox Friend WithEvents CheckBox2 As CheckBox Friend WithEvents TextBox2 As TextBox Friend WithEvents Button2 As Button Friend WithEvents boot2 As ComboBox Friend WithEvents port2 As ComboBox Friend WithEvents CheckBox3 As CheckBox Friend WithEvents TextBox3 As TextBox Friend WithEvents Button3 As Button Friend WithEvents boot3 As ComboBox Friend WithEvents port3 As ComboBox Friend WithEvents CheckBox4 As CheckBox Friend WithEvents TextBox4 As TextBox Friend WithEvents Button4 As Button Friend WithEvents boot4 As ComboBox Friend WithEvents port4 As ComboBox Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents Label3 As Label Friend WithEvents Label4 As Label Friend WithEvents Label5 As Label Friend WithEvents Button5 As Button End Class