frmmain.vb

使用vb.net实现串口通讯的过程

        '
        'btnCheckModems
        '
        Me.btnCheckModems.AccessibleDescription = resources.GetString("btnCheckModems.AccessibleDescription")
        Me.btnCheckModems.AccessibleName = resources.GetString("btnCheckModems.AccessibleName")
        Me.btnCheckModems.Anchor = CType(resources.GetObject("btnCheckModems.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnCheckModems.BackgroundImage = CType(resources.GetObject("btnCheckModems.BackgroundImage"), System.Drawing.Image)
        Me.btnCheckModems.Dock = CType(resources.GetObject("btnCheckModems.Dock"), System.Windows.Forms.DockStyle)
        Me.btnCheckModems.Enabled = CType(resources.GetObject("btnCheckModems.Enabled"), Boolean)
        Me.btnCheckModems.FlatStyle = CType(resources.GetObject("btnCheckModems.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnCheckModems.Font = CType(resources.GetObject("btnCheckModems.Font"), System.Drawing.Font)
        Me.btnCheckModems.Image = CType(resources.GetObject("btnCheckModems.Image"), System.Drawing.Image)
        Me.btnCheckModems.ImageAlign = CType(resources.GetObject("btnCheckModems.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnCheckModems.ImageIndex = CType(resources.GetObject("btnCheckModems.ImageIndex"), Integer)
        Me.btnCheckModems.ImeMode = CType(resources.GetObject("btnCheckModems.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnCheckModems.Location = CType(resources.GetObject("btnCheckModems.Location"), System.Drawing.Point)
        Me.btnCheckModems.Name = "btnCheckModems"
        Me.btnCheckModems.RightToLeft = CType(resources.GetObject("btnCheckModems.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnCheckModems.Size = CType(resources.GetObject("btnCheckModems.Size"), System.Drawing.Size)
        Me.btnCheckModems.TabIndex = CType(resources.GetObject("btnCheckModems.TabIndex"), Integer)
        Me.btnCheckModems.Text = resources.GetString("btnCheckModems.Text")
        Me.btnCheckModems.TextAlign = CType(resources.GetObject("btnCheckModems.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnCheckModems.Visible = CType(resources.GetObject("btnCheckModems.Visible"), Boolean)
        '
        'txtSelectedModem
        '
        Me.txtSelectedModem.AccessibleDescription = resources.GetString("txtSelectedModem.AccessibleDescription")
        Me.txtSelectedModem.AccessibleName = resources.GetString("txtSelectedModem.AccessibleName")
        Me.txtSelectedModem.Anchor = CType(resources.GetObject("txtSelectedModem.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.txtSelectedModem.AutoSize = CType(resources.GetObject("txtSelectedModem.AutoSize"), Boolean)
        Me.txtSelectedModem.BackgroundImage = CType(resources.GetObject("txtSelectedModem.BackgroundImage"), System.Drawing.Image)
        Me.txtSelectedModem.Dock = CType(resources.GetObject("txtSelectedModem.Dock"), System.Windows.Forms.DockStyle)
        Me.txtSelectedModem.Enabled = CType(resources.GetObject("txtSelectedModem.Enabled"), Boolean)
        Me.txtSelectedModem.Font = CType(resources.GetObject("txtSelectedModem.Font"), System.Drawing.Font)
        Me.txtSelectedModem.ImeMode = CType(resources.GetObject("txtSelectedModem.ImeMode"), System.Windows.Forms.ImeMode)
        Me.txtSelectedModem.Location = CType(resources.GetObject("txtSelectedModem.Location"), System.Drawing.Point)
        Me.txtSelectedModem.MaxLength = CType(resources.GetObject("txtSelectedModem.MaxLength"), Integer)
        Me.txtSelectedModem.Multiline = CType(resources.GetObject("txtSelectedModem.Multiline"), Boolean)
        Me.txtSelectedModem.Name = "txtSelectedModem"
        Me.txtSelectedModem.PasswordChar = CType(resources.GetObject("txtSelectedModem.PasswordChar"), Char)
        Me.txtSelectedModem.RightToLeft = CType(resources.GetObject("txtSelectedModem.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.txtSelectedModem.ScrollBars = CType(resources.GetObject("txtSelectedModem.ScrollBars"), System.Windows.Forms.ScrollBars)
        Me.txtSelectedModem.Size = CType(resources.GetObject("txtSelectedModem.Size"), System.Drawing.Size)
        Me.txtSelectedModem.TabIndex = CType(resources.GetObject("txtSelectedModem.TabIndex"), Integer)
        Me.txtSelectedModem.Text = resources.GetString("txtSelectedModem.Text")
        Me.txtSelectedModem.TextAlign = CType(resources.GetObject("txtSelectedModem.TextAlign"), System.Windows.Forms.HorizontalAlignment)
        Me.txtSelectedModem.Visible = CType(resources.GetObject("txtSelectedModem.Visible"), Boolean)
        Me.txtSelectedModem.WordWrap = CType(resources.GetObject("txtSelectedModem.WordWrap"), Boolean)
        '
        'btnSendATCommand
        '
        Me.btnSendATCommand.AccessibleDescription = resources.GetString("btnSendATCommand.AccessibleDescription")
        Me.btnSendATCommand.AccessibleName = resources.GetString("btnSendATCommand.AccessibleName")
        Me.btnSendATCommand.Anchor = CType(resources.GetObject("btnSendATCommand.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnSendATCommand.BackgroundImage = CType(resources.GetObject("btnSendATCommand.BackgroundImage"), System.Drawing.Image)
        Me.btnSendATCommand.Dock = CType(resources.GetObject("btnSendATCommand.Dock"), System.Windows.Forms.DockStyle)
        Me.btnSendATCommand.Enabled = CType(resources.GetObject("btnSendATCommand.Enabled"), Boolean)
        Me.btnSendATCommand.FlatStyle = CType(resources.GetObject("btnSendATCommand.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnSendATCommand.Font = CType(resources.GetObject("btnSendATCommand.Font"), System.Drawing.Font)
        Me.btnSendATCommand.Image = CType(resources.GetObject("btnSendATCommand.Image"), System.Drawing.Image)
        Me.btnSendATCommand.ImageAlign = CType(resources.GetObject("btnSendATCommand.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnSendATCommand.ImageIndex = CType(resources.GetObject("btnSendATCommand.ImageIndex"), Integer)
        Me.btnSendATCommand.ImeMode = CType(resources.GetObject("btnSendATCommand.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnSendATCommand.Location = CType(resources.GetObject("btnSendATCommand.Location"), System.Drawing.Point)
        Me.btnSendATCommand.Name = "btnSendATCommand"
        Me.btnSendATCommand.RightToLeft = CType(resources.GetObject("btnSendATCommand.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnSendATCommand.Size = CType(resources.GetObject("btnSendATCommand.Size"), System.Drawing.Size)
        Me.btnSendATCommand.TabIndex = CType(resources.GetObject("btnSendATCommand.TabIndex"), Integer)
        Me.btnSendATCommand.Text = resources.GetString("btnSendATCommand.Text")
        Me.btnSendATCommand.TextAlign = CType(resources.GetObject("btnSendATCommand.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnSendATCommand.Visible = CType(resources.GetObject("btnSendATCommand.Visible"), Boolean)
        '
        'btnSendUserCommand
        '
        Me.btnSendUserCommand.AccessibleDescription = resources.GetString("btnSendUserCommand.AccessibleDescription")
        Me.btnSendUserCommand.AccessibleName = resources.GetString("btnSendUserCommand.AccessibleName")
        Me.btnSendUserCommand.Anchor = CType(resources.GetObject("btnSendUserCommand.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnSendUserCommand.BackgroundImage = CType(resources.GetObject("btnSendUserCommand.BackgroundImage"), System.Drawing.Image)
        Me.btnSendUserCommand.Dock = CType(resources.GetObject("btnSendUserCommand.Dock"), System.Windows.Forms.DockStyle)
        Me.btnSendUserCommand.Enabled = CType(resources.GetObject("btnSendUserCommand.Enabled"), Boolean)
        Me.btnSendUserCommand.FlatStyle = CType(resources.GetObject("btnSendUserCommand.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnSendUserCommand.Font = CType(resources.GetObject("btnSendUserCommand.Font"), System.Drawing.Font)
        Me.btnSendUserCommand.Image = CType(resources.GetObject("btnSendUserCommand.Image"), System.Drawing.Image)
        Me.btnSendUserCommand.ImageAlign = CType(resources.GetObject("btnSendUserCommand.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnSendUserCommand.ImageIndex = CType(resources.GetObject("btnSendUserCommand.ImageIndex"), Integer)
        Me.btnSendUserCommand.ImeMode = CType(resources.GetObject("btnSendUserCommand.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnSendUserCommand.Location = CType(resources.GetObject("btnSendUserCommand.Location"), System.Drawing.Point)
        Me.btnSendUserCommand.Name = "btnSendUserCommand"
        Me.btnSendUserCommand.RightToLeft = CType(resources.GetObject("btnSendUserCommand.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnSendUserCommand.Size = CType(resources.GetObject("btnSendUserCommand.Size"), System.Drawing.Size)
        Me.btnSendUserCommand.TabIndex = CType(resources.GetObject("btnSendUserCommand.TabIndex"), Integer)
        Me.btnSendUserCommand.Text = resources.GetString("btnSendUserCommand.Text")
        Me.btnSendUserCommand.TextAlign = CType(resources.GetObject("btnSendUserCommand.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnSendUserCommand.Visible = CType(resources.GetObject("btnSendUserCommand.Visible"), Boolean)
        '
        'txtUserCommand
        '
        Me.txtUserCommand.AccessibleDescription = resources.GetString("txtUserCommand.AccessibleDescription")
        Me.txtUserCommand.AccessibleName = resources.GetString("txtUserCommand.AccessibleName")
        Me.txtUserCommand.Anchor = CType(resources.GetObject("txtUserCommand.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.txtUserCommand.AutoSize = CType(resources.GetObject("txtUserCommand.AutoSize"), Boolean)
        Me.txtUserCommand.BackgroundImage = CType(resources.GetObject("txtUserCommand.BackgroundImage"), System.Drawing.Image)
        Me.txtUserCommand.Dock = CType(resources.GetObject("txtUserCommand.Dock"), System.Windows.Forms.DockStyle)
        Me.txtUserCommand.Enabled = CType(resources.GetObject("txtUserCommand.Enabled"), Boolean)
        Me.txtUserCommand.Font = CType(resources.GetObject("txtUserCommand.Font"), System.Drawing.Font)
        Me.txtUserCommand.ImeMode = CType(resources.GetObject("txtUserCommand.ImeMode"), System.Windows.Forms.ImeMode)
        Me.txtUserCommand.Location = CType(resources.GetObject("txtUserCommand.Location"), System.Drawing.Point)
        Me.txtUserCommand.MaxLength = CType(resources.GetObject("txtUserCommand.MaxLength"), Integer)
        Me.txtUserCommand.Multiline = CType(resources.GetObject("txtUserCommand.Multiline"), Boolean)
        Me.txtUserCommand.Name = "txtUserCommand"
        Me.txtUserCommand.PasswordChar = CType(resources.GetObject("txtUserCommand.PasswordChar"), Char)
        Me.txtUserCommand.RightToLeft = CType(resources.GetObject("txtUserCommand.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.txtUserCommand.ScrollBars = CType(resources.GetObject("txtUserCommand.ScrollBars"), System.Windows.Forms.ScrollBars)
        Me.txtUserCommand.Size = CType(resources.GetObject("txtUserCommand.Size"), System.Drawing.Size)
        Me.txtUserCommand.TabIndex = CType(resources.GetObject("txtUserCommand.TabIndex"), Integer)
        Me.txtUserCommand.Text = resources.GetString("txtUserCommand.Text")
        Me.txtUserCommand.TextAlign = CType(resources.GetObject("txtUserCommand.TextAlign"), System.Windows.Forms.HorizontalAlignment)
        Me.txtUserCommand.Visible = CType(resources.GetObject("txtUserCommand.Visible"), Boolean)
        Me.txtUserCommand.WordWrap = CType(resources.GetObject("txtUserCommand.WordWrap"), Boolean)
        '
        'btnClear
        '
        Me.btnClear.AccessibleDescription = resources.GetString("btnClear.AccessibleDescription")
        Me.btnClear.AccessibleName = resources.GetString("btnClear.AccessibleName")
        Me.btnClear.Anchor = CType(resources.GetObject("btnClear.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnClear.BackgroundImage = CType(resources.GetObject("btnClear.BackgroundImage"), System.Drawing.Image)
        Me.btnClear.Dock = CType(resources.GetObject("btnClear.Dock"), System.Windows.Forms.DockStyle)
        Me.btnClear.Enabled = CType(resources.GetObject("btnClear.Enabled"), Boolean)
        Me.btnClear.FlatStyle = CType(resources.GetObject("btnClear.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnClear.Font = CType(resources.GetObject("btnClear.Font"), System.Drawing.Font)
        Me.btnClear.Image = CType(resources.GetObject("btnClear.Image"), System.Drawing.Image)
        Me.btnClear.ImageAlign = CType(resources.GetObject("btnClear.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnClear.ImageIndex = CType(resources.GetObject("btnClear.ImageIndex"), Integer)
        Me.btnClear.ImeMode = CType(resources.GetObject("btnClear.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnClear.Location = CType(resources.GetObject("btnClear.Location"), System.Drawing.Point)
        Me.btnClear.Name = "btnClear"
        Me.btnClear.RightToLeft = CType(resources.GetObject("btnClear.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnClear.Size = CType(resources.GetObject("btnClear.Size"), System.Drawing.Size)
        Me.btnClear.TabIndex = CType(resources.GetObject("btnClear.TabIndex"), Integer)
        Me.btnClear.Text = resources.GetString("btnClear.Text")
        Me.btnClear.TextAlign = CType(resources.GetObject("btnClear.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnClear.Visible = CType(resources.GetObject("btnClear.Visible"), Boolean)
        '
        'frmMain
        '
        Me.AccessibleDescription = resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName = resources.GetString("$this.AccessibleName")
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.Add(Me.btnClear)
        Me.Controls.Add(Me.txtUserCommand)
        Me.Controls.Add(Me.btnSendUserCommand)
        Me.Controls.Add(Me.btnSendATCommand)
        Me.Controls.Add(Me.txtSelectedModem)
        Me.Controls.Add(Me.btnCheckModems)
        Me.Controls.Add(Me.clstPorts)
        Me.Controls.Add(Me.txtStatus)
        Me.Controls.Add(Me.btnCheckForPorts)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximizeBox = False
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.Menu = Me.mnuMain
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "frmMain"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region " Standard Menu Code "
	' <System.Diagnostics.DebuggerStepThrough()> has been added to some procedures since they are
	' not the focus of the demo. Remove them if you wish to debug the procedures.
	' This code simply shows the About form.
	<System.Diagnostics.DebuggerStepThrough()> Private Sub mnuAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAbout.Click
		' Open the About form in Dialog Mode
		Dim frm As New frmAbout()
		frm.ShowDialog(Me)
		frm.Dispose()
	End Sub

	' This code will close the form.
	<System.Diagnostics.DebuggerStepThrough()> Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
		' Close the current form
		Me.Close()
	End Sub
#End Region

    ' This subroutine checks for available ports on the local machine. It does 
    '   this by attempting to open ports 1 through 4.
    Private Sub btnCheckForPorts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckForPorts.Click

        ' Check for Availability of each of the 4 Comm Ports, and
        '   place a check in the list box items that have openable ports.
        Dim i As Integer
        For i = 1 To 4
            WriteMessage("Testing COM" + i.ToString())