HMGforum.com

Code: Select all

If List1.ListIndex > -1 Then

        ' Set voice object to voice name selected in
        ' list box (new voice speaks its own name):
        Set V.Voice = V.GetVoices().Item(List1.ListIndex)
        V.Speak V.Voice.GetDescription
    Else
        MsgBox "Please select a voice from the list box."
    End If

Code: Select all

CLEA
***PRUEBAS DE VOZ Y SABER CUANTAS VOCES HAY EN LA COMPU

LOCAL oVoz AS "SAPI.SpVoice"
oVoz = CREATEOBJECT("SAPI.SpVoice")

FOR ln = 0 TO oVoz.GetVoices().COUNT - 1

  ? oVoz.GetVoices().ITEM(ln).GetDescription
  ? oVoz.GetVoices().ITEM(ln).ID

  oVoz.Voice = oVoz.GetVoices().ITEM(ln)

  oVoz.Speak(75)

ENDFOR

RETURN

Code: Select all

XMENSAJE = m4
oVoz = Createobject("SAPI.SPVoice")
ln=0
**ln=3		<--- PARA MI LAPTOP
oVoz.Voice = oVoz.GetVoices().ITEM(ln)
oVoz.volume = 100			&& VOLUMEN
oVoz.Speak(XMENSAJE)
RELEASE oVoz

Code: Select all

XMENSAJE = m4
oVoz = Createobject("SAPI.SPVoice")
ln=0
**ln=3		<--- PARA MI LAPTOP
oVoz.Voice = oVoz.GetVoices().ITEM(ln)
oVoz.volume = 100			&& VOLUMEN
oVoz.Speak(XMENSAJE)
RELEASE oVoz

Code: Select all

            oVoices:volume := Main.Volumen.value
			msgdebug ( Main.List1.value ,;
                       oVoices:GetVoices():Item(Main.List1.value)	
			oVoices:Voice  := oVoices:GetVoices():Item(Main.List1.value)  /*nO FUNCIONA"/
	        oVoices:Voice  := oVoices:GetVoices():Item(2)                 /*nO FUNCIONA"/
			oVoices:Speak ( cDescription , .F. )

Code: Select all

oNarrator             := CreateObject( "Sapi.SPVoice", "WithEvents" )  //'voice object
SpObjectTokenCategory := CreateObject( "SAPI.SpObjectTokenCategory")   //'a category of object tokens
//ISpeechObjectTokens := CreateObject( "SAPI.ISpeechObjectTokens")     //'an enumeration of object tokens  //No funciona//
SpObjectToken         := CreateObject( "SAPI.SpObjectToken")           //object token

Code: Select all

Private V As SpeechLib.SpVoice
Private T As SpeechLib.ISpeechObjectToken

Private Sub Command1_Click()
    On Error GoTo EH

    If List1.ListIndex > -1 Then

        ' Set voice object to voice name selected in
        ' list box (new voice speaks its own name):
        Set V.Voice = V.GetVoices().Item(List1.ListIndex)
        V.Speak V.Voice.GetDescription

    Else
        MsgBox "Please select a voice from the list box."
    End If

EH:
    If Err.Number Then ShowErrMsg
End Sub

Private Sub Form_Load()
    On Error GoTo EH

    Dim strVoice As String

    Set V = New SpVoice

    'Get each token in the collection returned by GetVoices
    For Each T In V.GetVoices
        strVoice = T.GetDescription     'The token's name
        List1.AddItem strVoice          'Add to listbox
    Next

Code: Select all

DISPATCH_PROPERTYPUT