Welcome To The Text To Speech

5 Mar 2006 8:56 PM

Meftah Tayeb

'please Refrance (Microsoft Speech Object Library 5.1
Private SP As SpVoice
Public Sub ReadText(TXT As String)
If TXT = "" Then Exit Sub
SP.Speak TXT
End Sub

Private Sub CMDRead_Click()
ReadText TXTString.Text
End Sub

Private Sub Form_Load()
TXTString.Text = "Welcome !My Name: Meftah Tayeb"
Set SP = New SpVoice
ReadText TXTString.Text
End Sub
Mail To:
SQLSRV***@Hotmail.Com

5 Mar 2006 9:40 PM

Jack

And your question is?
or you are the TTS creator and welcoming us to use it :-)
Jack

Show quoteHide quote

"Meftah Tayeb" <SQLSRV***@Hotmail.Com> wrote in message
news:en4DiaJQGHA.5592@TK2MSFTNGP11.phx.gbl...
> 'please Refrance (Microsoft Speech Object Library 5.1
> Private SP As SpVoice
> Public Sub ReadText(TXT As String)
> If TXT = "" Then Exit Sub
> SP.Speak TXT
> End Sub
>
> Private Sub CMDRead_Click()
> ReadText TXTString.Text
> End Sub
>
> Private Sub Form_Load()
> TXTString.Text = "Welcome !My Name: Meftah Tayeb"
> Set SP = New SpVoice
> ReadText TXTString.Text
> End Sub
> Mail To:
> SQLSRV***@Hotmail.Com
>