Const TTSAGE_BABY = 1
Dim tts1 As New HTTSLib.TextToSpeechPrivate Sub Command1_Click()
For i = 1 To tts1.CountEngines
Debug.Print tts1.Style(i)
Debug.Print tts1.ModeName(i)
Debug.Print tts1.ProductName(i)
Debug.Print tts1.LanguageID(i)
Next i
tts1.CurrentMode = 2
tts1.Speak "Hello world"
End Sub
上面的代码以男生说话
Dim tts1 As New HTTSLib.TextToSpeechPrivate Sub Command1_Click()
For i = 1 To tts1.CountEngines
Debug.Print tts1.Style(i)
Debug.Print tts1.ModeName(i)
Debug.Print tts1.ProductName(i)
Debug.Print tts1.LanguageID(i)
Next i
tts1.CurrentMode = 2
tts1.Speak "Hello world"
End Sub
上面的代码以男生说话
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货