【全部源码！】VB语音朗读2.0，新增语言选择！

XhyEax

5.1安装版（打包运行库）[url=]已更新：[/url]http://www.52pojie.cn/thread-343149-1-1.html

5.0（语速调整）：http://www.52pojie.cn/thread-324600-1-1.html
第四版已更新(bug修复)：http://www.52pojie.cn/thread-322479-1-1.html
第三版已更新（新增保存到文件），地址：http://www.52pojie.cn/thread-313369-1-1.html
第一版：http://www.52pojie.cn/thread-308146-1-1.html
注：原版系统直接可用中英混读，ghost版被精简过的系统，请自行安装微软TTS语音引擎，不然只能读英文或者读不了，
本软件为VB编写，调用微软TTS语音引擎，与第一版（第一版打开更快，地址：http://www.52pojie.cn/thread-308146-1-1.html）相比，添加语言选项，如图：


最新源码在5.1版本
满10热心免CB，放出全部源码：(如果你要要自行创建的话，请修改资源名为你的，并创建建和我的界面一样的界面，右下角那个可有可无，文本框、那个表格和按钮必须要有，
我的资源名：Txt_Show,Cmd_Pause,Cmd_Say,Cmd_Stop,VoiceL）

[Visual Basic] 纯文本查看 复制代码

Dim WithEvents Voice As SpVoice
Private Sub Cmd_Say_Click()
    If Cmd_Pause.Caption = "恢复" Then Voice.Resume: Cmd_Pause.Caption = "暂停"
    Voice.Speak Txt_Show.Text, SVSFlagsAsync
End Sub
Private Sub Cmd_Pause_Click()
    If Cmd_Pause.Caption = "暂停" Then
        Cmd_Pause.Caption = "恢复"
        Voice.Pause
    Else
        Cmd_Pause.Caption = "暂停"
        Voice.Resume
    End If
End Sub
Private Sub Cmd_Stop_Click()
    If Cmd_Pause.Caption = "恢复" Then Voice.Resume: Cmd_Pause.Caption = "暂停"
    Voice.Speak vbNullString, SVSFPurgeBeforeSpeak
End Sub
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
Private Sub Txt_Show_KeyPress(KeyAscii As Integer)
'设置热键全选
If KeyAscii = 1 Then
        Txt_Show.SelStart = 0
        Txt_Show.SelLength = Len(Txt_Show.Text)
End If
End Sub
Private Sub Voice_EndStream(ByVal StreamNum As Long, ByVal StreamPos As Variant)
'    MsgBox "朗读完毕"
End Sub
Private Sub VoiceL_Click()
    ' 改变朗读语言
    Set Voice.Voice = Voice.GetVoices().Item(VoiceL.ListIndex)
    End Sub

第一版也有源码：http://www.52pojie.cn/thread-308146-1-1.html
下载：成品：
VB语音朗读V2.0.exe.zip (4.74 KB, 下载次数: 72)

2014-12-2 13:37 上传

点击文件名下载附件
成品

(谨防伸手党！已隐藏）

免cb

jmmes

XhyEax 发表于 2014-12-5 21:19
是啊，英文也可以

下一步设置成一个词语或单词间隔时间可调，孩子听写这繁琐的工作就变轻松了，每天都要消耗大量时间去念

XhyEax

jmmes 发表于 2014-12-7 13:53
下一步设置成一个词语或单词间隔时间可调，孩子听写这繁琐的工作就变轻松了，每天都要消耗大量时间去念

好，我会改进的

XhyEax

二楼自己的，待编辑

mindy11

谢谢楼主分享,坐一下沙发

XhyEax

mindy11 发表于 2014-12-2 13:43
谢谢楼主分享,坐一下沙发

额，沙发是我自己的。。。。。
快试用一下吧！

onlinetome

支持一下

462005182

语音朗读和win7自动阅读是一个意思？ 自动发声输入内容？

wxfsky

谢谢分享！！

神小白

感谢分享。感觉很不错的软件

XhyEax

462005182 发表于 2014-12-2 14:12
语音朗读和win7自动阅读是一个意思？ 自动发声输入内容？

什么win7自动阅读？这是调用微软TTs