VB语音朗读2.0，新增语言选择！
注：原版系统直接可用，ghost版被精简过的系统，请自行安装微软TTS语音引擎，不然只能读英文或者读不了本软件为VB编写，调用微软TTS语音引擎，与第一版相比，添加语言选项，如图：
http://attach.52pojie.cn/forum/201412/02/131228eqtb7997qbidqt1b.jpg
满50L开源，满10热心免CB，先放出部分源码：(如果你要要自行创建的话，请修改资源名为你的，并创建建和我的界面一样的界面，右下角那个可有可无，文本框、那个表格和按钮必须要有，
我的资源名：Txt_Show,Cmd_Pause,Cmd_Say,Cmd_Stop,VoiceL）
纯文本查看 复制代码
?
1
2
3
4
5
6
7
8
Private Sub Form_Load()
Set Voice = New SpVoice
Dim Token As ISpeechObjectToken
For Each Token In Voice.GetVoices
VoiceL.AddItem (Token.GetDescription())
Next
VoiceL.ListIndex = 0
End Sub
下载地址：成品：
第一版和VB6.0企业精简版下载地址（免CB）：http://pan.baidu.com/s/1bns7bt1 密码:s8ur
满50L开源，满10热心免CB
页:
[1]