这个屌丝很懒，什么也没留下！

vb6测试操作系统是否支持TTS语音朗读功能_vb6 播放tts

作者：凡人多烦事01 | 2024-04-11 15:30:29


Function TTsTest(Optional Str1 As String = "ABC123逍遥语音朗读工具测试") As Boolean
    On Error GoTo Err1
    Dim Voice As SpVoice
    Set Voice = New SpVoice
    Set Voice.Voice = Voice.GetVoices("", "Language=804").Item(0) '中文朗读
    Voice.Speak Str1 'SVSFlagsAsync
    TTsTest = True
    Exit Function
Err1:
    MsgBox "ERR:" & err.Number & "," & err.Description
End Function

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/凡人多烦事01/article/detail/405810