extapi.vb

VB Modem编程及控件

        Me.cmdConfig.Size = New System.Drawing.Size(76, 29)
        Me.cmdConfig.TabIndex = 2
        Me.cmdConfig.Text = "Config..."
        '
        'cmdSelect
        '
        Me.cmdSelect.BackColor = System.Drawing.SystemColors.Control
        Me.cmdSelect.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdSelect.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdSelect.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdSelect.Location = New System.Drawing.Point(24, 56)
        Me.cmdSelect.Name = "cmdSelect"
        Me.cmdSelect.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdSelect.Size = New System.Drawing.Size(76, 29)
        Me.cmdSelect.TabIndex = 1
        Me.cmdSelect.Text = "Select..."
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.BackColor = System.Drawing.SystemColors.Control
        Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(344, 8)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label8.Size = New System.Drawing.Size(58, 13)
        Me.Label8.TabIndex = 26
        Me.Label8.Text = "Tapi status"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(613, 415)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.dlgWavFiles, Me.lstTapiStatus, Me.Frame3, Me.Frame2, Me.Frame1, Me.Label8})
        Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Location = New System.Drawing.Point(4, 23)
        Me.Name = "Form1"
        Me.Text = "Apax VB Example"
        CType(Me.dlgWavFiles, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Frame3.ResumeLayout(False)
        Me.Frame2.ResumeLayout(False)
        Me.Frame1.ResumeLayout(False)
        CType(Me.Apax1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    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
			m_vb6FormDefInstance = Value
        End Set
    End Property
#End Region 
	
	Private Sub Add_Renamed(ByVal S As String)
		lstTapiStatus.Items.Add((S))
		If lstTapiStatus.Items.Count > 10 Then
			lstTapiStatus.SelectedIndex = lstTapiStatus.Items.Count - 1
		End If
	End Sub
	
	Private Function TapiStateStr(ByRef State As APAX1.TxTapiState) As String
        Dim S As String
        Select Case State
            Case Apax1.TapiState.tsIdle : S = "tsIdle"
            Case Apax1.TapiState.tsOffering : S = "tsOffering"
            Case Apax1.TapiState.tsAccepted : S = "tsAccepted"
            Case Apax1.TapiState.tsDialTone : S = "tsDialTone"
            Case Apax1.TapiState.tsDialing : S = "tsDialing"
            Case Apax1.TapiState.tsRingback : S = "tsRingBack"
            Case Apax1.TapiState.tsBusy : S = "tsBusy"
            Case Apax1.TapiState.tsSpecialInfo : S = "tsSpecialInfo"
            Case Apax1.TapiState.tsConnected : S = "tsConnected"
            Case Apax1.TapiState.tsProceeding : S = "tsProceeding"
            Case Apax1.TapiState.tsOnHold : S = "tsOnHold"
            Case Apax1.TapiState.tsConferenced : S = "tsConferenced"
            Case Apax1.TapiState.tsOnHoldPendConf : S = "tsOnHoldPendConf"
            Case Apax1.TapiState.tsOnHoldPendTransfer : S = "tsOnHoldPendTransfer"
            Case Apax1.TapiState.tsDisconnected : S = "tsDisconnected"
            Case Apax1.TapiState.tsUnknown : S = "tsUnknown"
        End Select
        TapiStateStr = "  TapiState: " & S & " (" & CStr(Apax1.TapiState) & ")"
	End Function
	
	Private Sub Apax1_OnTapiCallerID(ByVal ID As String, ByVal IDName As String)
		Add_Renamed(("OnCallerID: ID = " & ID))
		Add_Renamed(("          : IDName = " & IDName))
	End Sub
	
	Private Sub Apax1_OnTapiConnect()
		Add_Renamed(("OnTapiConnect"))
		Add_Renamed((TapiStateStr((Apax1.TapiState))))
		If Apax1.EnableVoice Then
			Apax1.TapiPlayWaveFile((txtWavDirectory.Text & "\greeting.wav"))
		End If
	End Sub
	
	Private Sub Apax1_OnTapiDTMF(ByVal Digit As Byte, ByVal ErrorCode As Integer)
		Add_Renamed(("OnTapiDTMF: " & CStr(Digit - 48)))
		Add_Renamed((TapiStateStr((Apax1.TapiState))))
	End Sub
	
	Private Sub Apax1_OnTapiFail()
		If Apax1.TapiCancelled Then
			Add_Renamed(("OnTapiFail because we cancelled the call"))
		Else
			Add_Renamed(("OnTapiFail due to a real failure"))
        End If
        Frame2.Enabled = True
        Add_Renamed(("  " & TapiStateStr((Apax1.TapiState))))
	End Sub
	
	Private Sub Apax1_OnTapiGetNumber(ByRef PhoneNum As String)
		Dim S As String
		S = InputBox("Enter Phone Number", Text)
		If (S <> "") Then
			PhoneNum = S
			Add_Renamed(("OnTapiGetNumber - " & PhoneNum))
			Add_Renamed((TapiStateStr((Apax1.TapiState))))
		End If
	End Sub
	
    Private Sub Apax1_OnTapiPortClose()
        Frame2.Enabled = True
        Add_Renamed(("OnTapiPortClose"))
        Add_Renamed((TapiStateStr((Apax1.TapiState))))
    End Sub

    Private Sub Apax1_OnTapiPortOpen()
        Add_Renamed(("OnTapiPortOpen"))
        Add_Renamed((TapiStateStr((Apax1.TapiState))))
    End Sub

    Private Sub Apax1_OnTapiStatus(ByVal First As Boolean, ByVal Last As Boolean, ByVal Device As Integer, ByVal Message As Integer, ByVal Param1 As Integer, ByVal Param2 As Integer, ByVal Param3 As Integer)
        Add_Renamed(("OnTapiStatus: " & Apax1.TapiStatusMsg(Message, Param1, Param2) & ", (" & CStr(Message) & "), (" & CStr(Param1) & "), (" & CStr(Param2) & "), (" & CStr(Param3) & ")"))
        Add_Renamed((TapiStateStr((Apax1.TapiState))))
    End Sub

    Private Sub Apax1_OnTapiWaveNotify(ByVal Msg As Apax1.TxWaveMessage)
        Dim S As String
        Select Case Msg
            Case Apax1.WaveState : S = "waPlayOpen"
            Case Apax1.WaveState : S = "waPlayDone"
            Case Apax1.WaveState : S = "waPlayClose"
            Case Apax1.WaveState : S = "waRecordOpen"
            Case Apax1.WaveState : S = "waDataReady"
            Case Apax1.WaveState : S = "waRecordClose"
        End Select
        Add_Renamed(("OnTapiWaveNotify: " & S))
    End Sub

    Private Sub Apax1_OnTapiWaveSilence(ByRef StopRecording As Boolean, ByRef Hangup As Boolean)
        Add_Renamed(("OnTapiWaveSilence"))
    End Sub

    'UPGRADE_WARNING: Event chkEnableVoice.CheckStateChanged may fire when form is intialized. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2075"'
    Private Sub chkEnableVoice_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles chkEnableVoice.CheckStateChanged
        Apax1.EnableVoice = CBool(chkEnableVoice.CheckState)
    End Sub

    'UPGRADE_WARNING: Event chkInterruptWave.CheckStateChanged may fire when form is intialized. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2075"'
    Private Sub chkInterruptWave_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles chkInterruptWave.CheckStateChanged
        Apax1.InterruptWave = CBool(chkInterruptWave.CheckState)
    End Sub

    'UPGRADE_WARNING: Event chkTapiStatusDisplay.CheckStateChanged may fire when form is intialized. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2075"'
    Private Sub chkTapiStatusDisplay_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles chkTapiStatusDisplay.CheckStateChanged
        Apax1.TapiStatusDisplay = CBool(chkTapiStatusDisplay.CheckState)
    End Sub

    'UPGRADE_WARNING: Event chkUseSoundCard.CheckStateChanged may fire when form is intialized. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2075"'
    Private Sub chkUseSoundCard_CheckStateChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles chkUseSoundCard.CheckStateChanged
        Apax1.UseSoundCard = CBool(chkUseSoundCard.CheckState)
    End Sub

    Private Sub cmdAnswer_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdAnswer.Click
        Load_Text_Values()
        Frame2.Enabled = False
        Add_Renamed(("Answer button clicked (" & Apax1.SelectedDevice & ")"))
        Add_Renamed((TapiStateStr((Apax1.TapiState))))
        Apax1.TapiAnswer()
    End Sub

    Private Sub Load_Text_Values()
        Apax1.AnswerOnRing = Val(txtAnswerOnRing.Text)
        Apax1.MaxAttempts = Val(txtMaxAttempts.Text)
        Apax1.MaxMessageLength = Val(txtMaxMessageLength.Text)
        Apax1.TapiRetryWait = Val(txtRetryWait.Text)
        Apax1.SilenceThreshold = Val(txtSilenceThreshold.Text)
        Apax1.TrimSeconds = Val(txtTrimSeconds.Text)
    End Sub

    Private Sub cmdConfig_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdConfig.Click
        Load_Text_Values()
        Frame2.Enabled = False
        Apax1.TapiShowConfigDialog((True))
        Add_Renamed(("Config button click (" & Apax1.SelectedDevice & ")"))
        Add_Renamed((TapiStateStr((Apax1.TapiState))))
    End Sub

    Private Sub cmdDial_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDial.Click
        Load_Text_Values()
        Frame2.Enabled = False
        Add_Renamed(("Dial button click (" & Apax1.SelectedDevice & ")"))
        Add_Renamed((TapiStateStr((Apax1.TapiState))))
        Apax1.TapiDial()
    End Sub

    Private Sub cmdDTMF_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDTMF.Click
        Dim S As String
        S = InputBox("Enter digits to send", Text)
        If (S <> "") Then
            Add_Renamed(("SendTone(" & S & ")"))
            Apax1.TapiSendTone((S))
        End If
    End Sub

    Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
        Add_Renamed(("Cancel button click"))
        Add_Renamed((TapiStateStr((Apax1.TapiState))))
        Apax1.Close()
    End Sub

    Private Sub cmdPlay_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdPlay.Click
        dlgWavFiles.DialogTitle = "Select Wav File"
        dlgWavFiles.InitDir = txtWavDirectory.Text
        dlgWavFiles.ShowOpen()
        Add_Renamed(("Playing wave file (" & dlgWavFiles.FileName & ")"))
        Apax1.TapiPlayWaveFile((dlgWavFiles.FileName))
    End Sub

    Private Sub cmdRecord_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdRecord.Click
        Dim Overwrite As Object
        dlgWavFiles.DialogTitle = "Record Wav File"
        dlgWavFiles.InitDir = txtWavDirectory.Text
        dlgWavFiles.ShowSave()
        Add_Renamed(("Recording wave file (" & dlgWavFiles.FileName & ")"))
        'UPGRADE_WARNING: Couldn't resolve default property of object Overwrite. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
        Apax1.TapiRecordWaveFile(dlgWavFiles.FileName, Overwrite = chkOverwrite.CheckState)
    End Sub

    Private Sub cmdSelect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSelect.Click
        Apax1.TapiSelectDevice()
        Add_Renamed(("SelectedDevice = " & Apax1.SelectedDevice))
    End Sub

    Private Sub cmdStop_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdStop.Click
        Apax1.TapiStopWaveFile()
        Add_Renamed(("Stopping wav file"))
    End Sub

    'UPGRADE_WARNING: Form event Form1.Activate has a new behavior. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
    Private Sub Form1_Activated(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Activated
        Dim Test As Short
        txtAnswerOnRing.Text = CStr(Apax1.AnswerOnRing)
        txtMaxAttempts.Text = CStr(Apax1.MaxAttempts)
        txtRetryWait.Text = CStr(Apax1.TapiRetryWait)
        txtMaxMessageLength.Text = CStr(Apax1.MaxMessageLength)
        txtTrimSeconds.Text = CStr(Apax1.TrimSeconds)
        txtSilenceThreshold.Text = CStr(Apax1.SilenceThreshold)
        chkEnableVoice.CheckState = System.Math.Abs(CInt(Apax1.EnableVoice))
        chkInterruptWave.CheckState = System.Math.Abs(CInt(Apax1.InterruptWave))
        chkUseSoundCard.CheckState = System.Math.Abs(CInt(Apax1.UseSoundCard))
        chkTapiStatusDisplay.CheckState = System.Math.Abs(CInt(Apax1.TapiStatusDisplay))
    End Sub

    Private Sub lstTapiStatus_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles lstTapiStatus.DoubleClick
        lstTapiStatus.Items.Clear()
    End Sub

End Class