使用vb.net tts转换文本为wav时,下面的源代码如何写??????????
Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
Dim myStream As System.IO.Stream
Sa1.InitialDirectory = "C:\" '=====================位置
Sa1.Filter = "All files (*.*)|*.*|wav files (*.wav)|*.wav" '====格式
Sa1.FilterIndex = 2
Sa1.RestoreDirectory = True
Sa1.Title = "保存"
If Sa1.ShowDialog() = DialogResult.OK Then
myStream = Sa1.OpenFile()
If Not (myStream Is Nothing) Then
'??????如?????何?????写?????代??????码??????????????????????????
End If
End If
End Sub
请各位老大指导指导,谢谢啦???
Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
Dim myStream As System.IO.Stream
Sa1.InitialDirectory = "C:\" '=====================位置
Sa1.Filter = "All files (*.*)|*.*|wav files (*.wav)|*.wav" '====格式
Sa1.FilterIndex = 2
Sa1.RestoreDirectory = True
Sa1.Title = "保存"
If Sa1.ShowDialog() = DialogResult.OK Then
myStream = Sa1.OpenFile()
If Not (myStream Is Nothing) Then
'??????如?????何?????写?????代??????码??????????????????????????
End If
End If
End Sub
请各位老大指导指导,谢谢啦???
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货