CHMlib Logo Leading Translation Management System for Translation Agencies, Top Translation Management Software for Freelance Translators, Time Tracking Software, Word Count, Character Count and Line Count Software, Computer Assisted Translation Tool for Easy Word Count, Clipboard Character Count Software, User-Friendly Translation Memory Software, Terminology Management Software, Terminology Management Server, Microsoft Glossary Software, Dictionary of Acronyms, Social Network for Translators and Translation Agencies, Acronyms and Abbreviations Search Engine, Russian Translation Lab, Ukrainian Translation Lab.
You are reading help file online using chmlib.com
CrisisHelper - First Aid in Tough Times of World Economic Crisis


Intelligent Interface Technologies Home Page Microsoft Speech SDK

Speech Automation 5.1

Object: SpVoice

Pause Method

The Pause method pauses the voice at the nearest alert boundary and closes the output device, allowing it to be used by other voices.


SpVoice.Pause()

Parameters

None.

Return Value

None.


Example

The following Visual Basic form code demonstrates the use of the Pause and Resume methods. To run this code, create a form with the following control:

  • A command button called Command1
  • Paste this code into the Declarations section of the form.

    The Form_Load procedure creates a voice object. The first call of the Command1_Click procedure causes the voice to begin speaking a text stream. Subsequent Command1 clicks alternately pause and resume the voice. When the voice has finished speaking the stream, the EndStream causes the voice to speak it again.

    The voice's AlertBoundary setting of SVEPhoneme means that the Pause method can interrupt the voice within word boundaries. The text stream spoken contains a number of long words in order to show this interruption of words more clearly.


    Option Explicit
    
    Private WithEvents V As SpeechLib.SpVoice
    
    Private Sub Command1_Click()
    
        Select Case Command1.Caption
        
        Case "Start"
            Call SpeakAgain
            Command1.Caption = "Pause"
            
        Case "Pause"
            V.Pause
            Command1.Caption = "Resume"
            
        Case "Resume"
            V.Resume
            Command1.Caption = "Pause"
            
        End Select
        
    End Sub
    
    Private Sub Form_Load()
    
        Set V = New SpVoice
        V.AlertBoundary = SVEPhoneme    'Let words be interrupted
        Command1.Caption = "Start"
        
    End Sub
    
    Private Sub V_EndStream(ByVal StreamNumber As Long, ByVal StreamPosition As Variant)
        Call SpeakAgain
    End Sub
    
    Private Sub SpeakAgain()
        V.Speak "this phenomenal asynchronous stream contains multisyllabic " _
                & "pronunciations and circumlocutions.", SVSFlagsAsync
    End Sub


    You are reading help file online using chmlib.com

    If you want your help file to be removed or added please send e-mail to chmlibcom@gmail.com
    Partner sites: Logo Design, Simple Anti-Crisis Accounting Software, Voice Search for Web