Free Online Library Of Help Files. Read help files in convenient way.

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

Microsoft Speech SDK

Interface: ISpeechVoiceStatus

InputWordPosition Property

The InputWordPosition property retrieves the position one character prior to the beginning of the word currently being spoken by the text-to-speech (TTS) engine.

The InputWordPosition property of an ISpeechVoiceStatus object is valid only when its RunningState property is SRSEIsSpeaking.

Syntax

Parts

ISpeechVoiceStatus

The owning object.

Long

Set: (This property is read-only)
Get: A Long variable returning the character position.

Example

The following Visual Basic form code demonstrates the use of the InputWordLength and InputWordPosition properties of an ISpeechVoiceStatus object. To run this code, create a form with the following controls:

Paste this code into the Declarations section of the form.

The Form_Load procedure creates a voice object and places a sentence in the text box. The Command1_Click procedure speaks the contents of the text box asynchronously and loops until the voice finishes speaking. In this loop, the code uses InputSentencePosition and InputSentenceLength properties to highlight each word in the text box as it is being spoken by the TTS engine. A RunningState property of SRSEDone indicates that the voice has finished speaking.

Option Explicit

Dim V As SpeechLib.SpVoice

Private Sub Command1_Click()

    Dim ii As Integer
    Dim S As SpeechLib.ISpeechVoiceStatus

    V.Speak Text1.Text, SVSFlagsAsync   'Speak the user-editable text
    
    'Check status periodically
    Do
        For ii = 0 To 5000
            DoEvents
        Next ii
        
        Set S = V.Status    'Get status in an ISpeechVoiceStatus object
        
        'Text1.HideSelection must be False for this selection to be seen!
        
        Text1.SelStart = S.InputWordPosition
        Text1.SelLength = S.InputWordLength
    
    Loop Until V.Status.RunningState = SRSEDone 'Exit when voice stops
        
    Text1.SelLength = 0
    
End Sub

Private Sub Form_Load()

    Set V = New SpVoice
    Text1.Text = "This is a sentence containing several words."

End Sub