- make a textbox "text1"
- make command button "Command1"
- press ctrl +t
- scroll down till you find direction text to speech "DirectSS1"
- add this code
VB Code:
Private Sub Command1_Click() DirectSS1.Speak Text1.Text End Sub
Printable View
- make a textbox "text1"
- make command button "Command1"
- press ctrl +t
- scroll down till you find direction text to speech "DirectSS1"
- add this code
VB Code:
Private Sub Command1_Click() DirectSS1.Speak Text1.Text End Sub
It might be helpful to state what libraries/references are needed for your routine.
And, if they are not included with native VB, where to get them.
You will need to reference the Microsoft Speech Object Library.
see this link
Your 15 lab computers probably loads this library as a default when VB6 loadeds. Most people only load references/components that the particular project needs and I don't know many applications that would use this reference. Just my two cents.Quote:
Originally Posted by wiz126
This is awesome, Well done wiz126!
Anybody know if it can handle unicode strings? e.g. Arabic, Hebrew etc?
If not, could probably write a module to 'translate' the strings phonetically into Ascii.
Great! but can we control the speed it reads the text?
Sure, if you type SP. you get Intellisense, which has RATE.
I tried it from 0 to 10, and 0 is normal. Then I tried negative numbers, and they work also.