exwav.vb

VB Modem编程及控件

        Me.Label3.Text = "Digits to Send"
        '
        'fraWavFile
        '
        Me.fraWavFile.BackColor = System.Drawing.SystemColors.Control
        Me.fraWavFile.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdStop, Me.chkOverwrite, Me.cmdRecord, Me.cmdPlay, Me.cmdSelectWaveFile, Me.txtWavFile, Me.dlgSelectWavFile, Me.Label2})
        Me.fraWavFile.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.fraWavFile.ForeColor = System.Drawing.SystemColors.ControlText
        Me.fraWavFile.Location = New System.Drawing.Point(8, 160)
        Me.fraWavFile.Name = "fraWavFile"
        Me.fraWavFile.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.fraWavFile.Size = New System.Drawing.Size(329, 129)
        Me.fraWavFile.TabIndex = 0
        Me.fraWavFile.TabStop = False
        Me.fraWavFile.Text = " Wav File "
        '
        'cmdStop
        '
        Me.cmdStop.BackColor = System.Drawing.SystemColors.Control
        Me.cmdStop.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdStop.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdStop.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdStop.Location = New System.Drawing.Point(240, 64)
        Me.cmdStop.Name = "cmdStop"
        Me.cmdStop.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdStop.Size = New System.Drawing.Size(57, 25)
        Me.cmdStop.TabIndex = 7
        Me.cmdStop.Text = "Stop"
        '
        'chkOverwrite
        '
        Me.chkOverwrite.BackColor = System.Drawing.SystemColors.Control
        Me.chkOverwrite.Checked = True
        Me.chkOverwrite.CheckState = System.Windows.Forms.CheckState.Checked
        Me.chkOverwrite.Cursor = System.Windows.Forms.Cursors.Default
        Me.chkOverwrite.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.chkOverwrite.ForeColor = System.Drawing.SystemColors.ControlText
        Me.chkOverwrite.Location = New System.Drawing.Point(136, 96)
        Me.chkOverwrite.Name = "chkOverwrite"
        Me.chkOverwrite.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.chkOverwrite.Size = New System.Drawing.Size(81, 17)
        Me.chkOverwrite.TabIndex = 6
        Me.chkOverwrite.Text = "Overwrite"
        '
        'cmdRecord
        '
        Me.cmdRecord.BackColor = System.Drawing.SystemColors.Control
        Me.cmdRecord.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdRecord.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdRecord.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdRecord.Location = New System.Drawing.Point(136, 64)
        Me.cmdRecord.Name = "cmdRecord"
        Me.cmdRecord.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdRecord.Size = New System.Drawing.Size(57, 25)
        Me.cmdRecord.TabIndex = 5
        Me.cmdRecord.Text = "Record"
        '
        'cmdPlay
        '
        Me.cmdPlay.BackColor = System.Drawing.SystemColors.Control
        Me.cmdPlay.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdPlay.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdPlay.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdPlay.Location = New System.Drawing.Point(32, 64)
        Me.cmdPlay.Name = "cmdPlay"
        Me.cmdPlay.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdPlay.Size = New System.Drawing.Size(57, 25)
        Me.cmdPlay.TabIndex = 4
        Me.cmdPlay.Text = "Play"
        '
        'cmdSelectWaveFile
        '
        Me.cmdSelectWaveFile.BackColor = System.Drawing.SystemColors.Control
        Me.cmdSelectWaveFile.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdSelectWaveFile.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdSelectWaveFile.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdSelectWaveFile.Location = New System.Drawing.Point(288, 24)
        Me.cmdSelectWaveFile.Name = "cmdSelectWaveFile"
        Me.cmdSelectWaveFile.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdSelectWaveFile.Size = New System.Drawing.Size(25, 25)
        Me.cmdSelectWaveFile.TabIndex = 3
        Me.cmdSelectWaveFile.Text = "..."
        '
        'txtWavFile
        '
        Me.txtWavFile.AcceptsReturn = True
        Me.txtWavFile.AutoSize = False
        Me.txtWavFile.BackColor = System.Drawing.SystemColors.Window
        Me.txtWavFile.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtWavFile.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtWavFile.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtWavFile.Location = New System.Drawing.Point(72, 24)
        Me.txtWavFile.MaxLength = 0
        Me.txtWavFile.Name = "txtWavFile"
        Me.txtWavFile.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtWavFile.Size = New System.Drawing.Size(209, 25)
        Me.txtWavFile.TabIndex = 2
        Me.txtWavFile.Text = ""
        '
        'dlgSelectWavFile
        '
        Me.dlgSelectWavFile.ContainingControl = Me
        Me.dlgSelectWavFile.Enabled = True
        Me.dlgSelectWavFile.Location = New System.Drawing.Point(200, 56)
        Me.dlgSelectWavFile.Name = "dlgSelectWavFile"
        Me.dlgSelectWavFile.OcxState = CType(resources.GetObject("dlgSelectWavFile.OcxState"), System.Windows.Forms.AxHost.State)
        Me.dlgSelectWavFile.Size = New System.Drawing.Size(32, 32)
        Me.dlgSelectWavFile.TabIndex = 8
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.BackColor = System.Drawing.SystemColors.Control
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(16, 30)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(51, 13)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "FileName"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(343, 412)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Frame1, Me.fraDTMF, Me.fraWavFile})
        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 = "ExWav - Tapi Wav Files and DTMF Digits"
        Me.Frame1.ResumeLayout(False)
        CType(Me.Apax1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.fraDTMF.ResumeLayout(False)
        Me.fraWavFile.ResumeLayout(False)
        CType(Me.dlgSelectWavFile, 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 
	Dim ExampleWavDir As String
	Dim HangupPending As Boolean
	
    Private Sub Apax1_OnTapiWaveNotify(ByVal Msg As Apax1.TxWaveMessage)
        If HangupPending And (Msg = Apax1.WaveState) Then
            Apax1.Close()
            HangupPending = False
        End If
    End Sub

    Private Sub cmdAnswer_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdAnswer.Click
        Apax1.TapiSelectDevice()
        Apax1.EnableVoice = True
        Apax1.TapiAnswer()
    End Sub

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

    Private Sub cmdPlay_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdPlay.Click
        If txtWavFile.Text <> "" Then
            Apax1.TapiPlayWaveFile((txtWavFile.Text))
        End If
    End Sub

    Private Sub cmdRecord_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdRecord.Click
        If txtWavFile.Text <> "" Then
            Apax1.TapiRecordWaveFile(txtWavFile.Text, Overwrite:=CBool(chkOverwrite.CheckState))
        End If
    End Sub

    Private Sub cmdSelectWaveFile_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSelectWaveFile.Click
        dlgSelectWavFile.ShowOpen()
        txtWavFile.Text = dlgSelectWavFile.FileName
    End Sub

    Private Sub cmdSendTone_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSendTone.Click
        Apax1.TapiSendTone((txtDigitsToSend.Text))
    End Sub

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

    Private Sub Apax1_OnTapiConnect()
        ExampleWavDir = dirExampleWav.DirList(dirExampleWav.DirListIndex)
        Apax1.TapiPlayWaveFile((ExampleWavDir & "\greeting.wav"))
        fraWavFile.Enabled = True
        fraDTMF.Enabled = True
        HangupPending = False
    End Sub

    Private Sub Apax1_OnTapiDTMF(ByVal Digit As Byte, ByVal ErrorCode As Integer)
        Select Case Digit
            Case 35 '#
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Beep.wav"))
            Case 42 '*
                HangupPending = True
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Goodbye.wav"))
            Case 48 '0
                HangupPending = True
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice0.wav"))
            Case 49 '1
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice1.wav"))
            Case 50 '2
                Apax1.TapiPlayWaveFile(("E:\turbopower\apax\Examples" & "\Choice2.wav"))
            Case 51 '3
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice3.wav"))
            Case 52 '4
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice4.wav"))
            Case 53 '5
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice5.wav"))
            Case 54 '6
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice6.wav"))
            Case 55 '7
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice7.wav"))
            Case 56 '8
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice8.wav"))
            Case 57 '9
                Apax1.TapiPlayWaveFile((ExampleWavDir & "\Choice9.wav"))
        End Select
        txtDigitsReceived.Text = txtDigitsReceived.Text & Str(Digit - 48)
    End Sub

    Private Sub Apax1_OnTapiPortClose()
        fraWavFile.Enabled = False
        fraDTMF.Enabled = False
    End Sub

    Private Sub Apax1_OnTapiPortOpen(ByVal sender As Object, ByVal e As System.EventArgs) Handles Apax1.OnTapiPortOpen
        Text = "OnTapiPortOpen fired"
    End Sub
End Class