excomm.vb

VB Modem编程及控件

        Me.cmdPutStringCRLF.Name = "cmdPutStringCRLF"
        Me.cmdPutString.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.cmdPutString.Text = "PutString"
        Me.cmdPutString.Size = New System.Drawing.Size(89, 25)
        Me.cmdPutString.Location = New System.Drawing.Point(24, 64)
        Me.cmdPutString.TabIndex = 6
        Me.cmdPutString.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdPutString.BackColor = System.Drawing.SystemColors.Control
        Me.cmdPutString.CausesValidation = True
        Me.cmdPutString.Enabled = True
        Me.cmdPutString.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdPutString.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdPutString.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdPutString.TabStop = True
        Me.cmdPutString.Name = "cmdPutString"
        Me.Frame1.Size = New System.Drawing.Size(161, 105)
        Me.Frame1.Location = New System.Drawing.Point(8, 248)
        Me.Frame1.TabIndex = 0
        Me.Frame1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Frame1.BackColor = System.Drawing.SystemColors.Control
        Me.Frame1.Enabled = True
        Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame1.Visible = True
        Me.Frame1.Name = "Frame1"
        Me.cmdClose.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.cmdClose.Text = "Close"
        Me.cmdClose.Size = New System.Drawing.Size(65, 25)
        Me.cmdClose.Location = New System.Drawing.Point(88, 64)
        Me.cmdClose.TabIndex = 4
        Me.cmdClose.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdClose.BackColor = System.Drawing.SystemColors.Control
        Me.cmdClose.CausesValidation = True
        Me.cmdClose.Enabled = True
        Me.cmdClose.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdClose.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdClose.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdClose.TabStop = True
        Me.cmdClose.Name = "cmdClose"
        Me.cmdOpen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.cmdOpen.Text = "Open"
        Me.cmdOpen.Size = New System.Drawing.Size(65, 25)
        Me.cmdOpen.Location = New System.Drawing.Point(16, 64)
        Me.cmdOpen.TabIndex = 3
        Me.cmdOpen.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdOpen.BackColor = System.Drawing.SystemColors.Control
        Me.cmdOpen.CausesValidation = True
        Me.cmdOpen.Enabled = True
        Me.cmdOpen.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdOpen.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdOpen.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdOpen.TabStop = True
        Me.cmdOpen.Name = "cmdOpen"
        Me.txtComNumber.AutoSize = False
        Me.txtComNumber.Size = New System.Drawing.Size(41, 19)
        Me.txtComNumber.Location = New System.Drawing.Point(96, 24)
        Me.txtComNumber.TabIndex = 1
        Me.txtComNumber.Text = "0"
        Me.txtComNumber.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtComNumber.AcceptsReturn = True
        Me.txtComNumber.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
        Me.txtComNumber.BackColor = System.Drawing.SystemColors.Window
        Me.txtComNumber.CausesValidation = True
        Me.txtComNumber.Enabled = True
        Me.txtComNumber.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtComNumber.HideSelection = True
        Me.txtComNumber.ReadOnly = False
        Me.txtComNumber.MaxLength = 0
        Me.txtComNumber.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtComNumber.Multiline = False
        Me.txtComNumber.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtComNumber.ScrollBars = System.Windows.Forms.ScrollBars.None
        Me.txtComNumber.TabStop = True
        Me.txtComNumber.Visible = True
        Me.txtComNumber.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.txtComNumber.Name = "txtComNumber"
        Me.Label1.Text = "ComNumber"
        Me.Label1.Size = New System.Drawing.Size(58, 13)
        Me.Label1.Location = New System.Drawing.Point(24, 24)
        Me.Label1.TabIndex = 2
        Me.Label1.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft
        Me.Label1.BackColor = System.Drawing.SystemColors.Control
        Me.Label1.Enabled = True
        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label1.UseMnemonic = True
        Me.Label1.Visible = True
        Me.Label1.AutoSize = True
        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.Label1.Name = "Label1"
        Me.Label2.Text = "OnRXD event data"
        Me.Label2.Size = New System.Drawing.Size(91, 13)
        Me.Label2.Location = New System.Drawing.Point(8, 360)
        Me.Label2.TabIndex = 11
        Me.Label2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopLeft
        Me.Label2.BackColor = System.Drawing.SystemColors.Control
        Me.Label2.Enabled = True
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.UseMnemonic = True
        Me.Label2.Visible = True
        Me.Label2.AutoSize = True
        Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.Label2.Name = "Label2"
        Me.Controls.Add(Apax1)
        Me.Controls.Add(lstReceived)
        Me.Controls.Add(Frame2)
        Me.Controls.Add(Frame1)
        Me.Controls.Add(Label2)
        Me.Frame2.Controls.Add(txtPut)
        Me.Frame2.Controls.Add(cmdPutData)
        Me.Frame2.Controls.Add(cmdPutStringCRLF)
        Me.Frame2.Controls.Add(cmdPutString)
        Me.Frame1.Controls.Add(cmdClose)
        Me.Frame1.Controls.Add(cmdOpen)
        Me.Frame1.Controls.Add(txtComNumber)
        Me.Frame1.Controls.Add(Label1)
        CType(Me.Apax1, System.ComponentModel.ISupportInitialize).EndInit()
    End Sub
#End Region
#Region "Upgrade Support "
    Private Shared m_vb6FormDefInstance As Form1
    Private Shared m_InitializingDefInstance As Boolean
    Public Shared Property DefInstance() As Form1
        Get
            If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                m_InitializingDefInstance = True
                m_vb6FormDefInstance = New Form1()
                m_InitializingDefInstance = False
            End If
            DefInstance = m_vb6FormDefInstance
        End Get
        Set(ByVal Value As Form1)
            m_vb6FormDefInstance = Value
        End Set
    End Property
#End Region
    Dim DataBuffer() As Byte

    Private Sub Apax1_OnRXD(ByVal Data As Object)
        Dim i, S As Integer
        If IsArray(Data) Then
            For i = LBound(Data) To UBound(Data)
                S = S & " &H" & Hex(Data(i))
            Next
            lstReceived.Items.Add((S))
        End If
    End Sub

    Private Sub cmdClose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdClose.Click
        Apax1.Close()
    End Sub

    Private Sub cmdOpen_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOpen.Click
        Apax1.ComNumber = CShort(txtComNumber.Text)
        Apax1.PortOpen()
        txtComNumber.Text = CStr(Apax1.ComNumber)
    End Sub

    Private Sub cmdPutData_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdPutData.Click
        Dim i, Count As Integer
        Dim S() As Object
        Count = Len(txtPut.Text)
        ReDim S(Count)
        For i = 1 To Count
            S(i - 1) = GetChar_Renamed(txtPut.Text, i)
        Next
        Apax1.PutData(S)
    End Sub

    Private Sub cmdPutString_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdPutString.Click
        Apax1.PutString(txtPut.Text)
    End Sub

    Private Sub cmdPutStringCRLF_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdPutStringCRLF.Click
        Apax1.PutStringCRLF(txtPut.Text)
    End Sub

    Private Function GetChar_Renamed(ByVal Str_Renamed As String, ByVal Index As Short) As Byte
        GetChar_Renamed = Asc(Mid(Str_Renamed, Index, 1))
    End Function
End Class