#1
  1. No Profile Picture
    Junior Member
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jul 2003
    Posts
    3
    Rep Power
    0

    Angry Microsoft Direct Text-to-Speech control.


    Well I know how to use this control for the most part, I only want to find out how do I change the gender of the speaker? and if I have to download the voices where do I get them?
  2. #2
  3. No Profile Picture
    Junior Member
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jul 2003
    Posts
    3
    Rep Power
    0
    Well it looks like I'm the only one who uses this control.. that sux.
  4. #3
  5. /(bb|[^b]{2})/

    Join Date
    Nov 2001
    Location
    Somewhere in the great unknown
    Posts
    5,163
    Rep Power
    792
    Here is a code sample I found in the net for adding the voices to a combo box or list box.
    Code:
    Sub ListVoices(Lst  As Object, Lips  As Object)
    engine = Lips.Find("Mfg=Microsoft;Gender=1")
    Lips.Select engine
    For i = 1 To Lips.CountEngines
        ModeName = Lips.ModeName(i)
        Lst.AddItem ModeName
    Next i
    Lst.ListIndex = Lips.CurrentMode - 1
    End Sub
    You can find more examples through google:
    http://www.google.com/search?hl=en&l...=Google+Search
  6. #4
  7. No Profile Picture
    Junior Member
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jul 2003
    Posts
    3
    Rep Power
    0
    Ok well.. that appears to be working.. it fills in the different voices into a list or combobox however, how do I make the OCX use those voices??... I tried

    Lips.CurrentMode = Lst.ListIndex+1

    but that either gives me errors or simply doesnt change the voice at all. In most cases it just doesnt change the voice.
  8. #5
  9. /(bb|[^b]{2})/

    Join Date
    Nov 2001
    Location
    Somewhere in the great unknown
    Posts
    5,163
    Rep Power
    792
    1) What is the error that you are getting?

    2) Is Lips the name of the TextToSpeech control?

IMN logo majestic logo threadwatch logo seochat tools logo