本帖最后由 XhyEax 于 2015-3-22 21:41 编辑
5.1安装版（打包运行库）已更新：http://www.52pojie.cn/thread-343149-1-1.html
第五版已更新（语速调整）：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-309985-1-1.html
本版本打开更快，不会占用更多内存
注：原版系统直接可用，ghost版被精简过的系统，请自行安装微软TTS，不然只能读英文或者读不了
学习VB的无聊之作，可以用来（额，给孩子听写？。。。。。）
反正总会有用的，有Ctrl+a全选(单击全选还有综合版不稳定，以后再说吧)
（并不是评分所说的简单的speak，虽然那很简单，但岂不是很麻烦？说一句编辑一次）
界面：
全部源码（不含全选设置，如果你要要自行创建的话，请修改资源名为你的，并创建建和我的界面一样的界面，右下角那个可有可无，文本框和按钮必须要有，
我的资源名：Txt_Show,Cmd_Pause,Cmd_Say,Cmd_Stop））
：
[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
Set Voice.Voice = Voice.GetVoices("", "Language=804").Item(0) '中文朗读
End Sub
Private Sub Voice_EndStream(ByVal StreamNum As Long, ByVal StreamPos As Variant)
' MsgBox "朗读完毕"
End Sub
全选源码（请自行添加到代码中）：[Visual Basic] 纯文本查看 复制代码 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
下载地址：显示工程错误的，请把VB安装（如果还不行，那就应该是你的系统被精简过）：
新建文本文档.txt
(78 Bytes, 下载次数: 80)
成品：
VB语音朗读成品（可Ctrl a）.zip
(4.23 KB, 下载次数: 156)
免cb链接：
5.1处
5.1安装版（打包运行库）[url=]已更新：[/url]http://www.52pojie.cn/thread-343149-1-1.html
| 
[复制链接]
发表于 2014-11-25 13:52
|
发表于 2014-11-25 21:15
