Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim s As Object s = CreateObject(“sapi.spvoice”) s.speak(“speak”) End Sub
vb.net 文本转语音
最新推荐文章于 2021-02-07 11:16:38 发布
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim s As Object s = CreateObject(“sapi.spvoice”) s.speak(“speak”) End Sub