校内上有同学介绍说,xp以后的系统可以用以下的代码来朗读文字：

CreateObject(“SAPI.SpVoice”).Speak “你好”

具体的实现方法为：

新建一个记事本，在里面输入 CreateObject(“SAPI.SpVoice”).Speak “I love YOU” 保存扩展名为VBS文件 如1.vbs，双击运行

这就有一个问题，这个控件只能读事先设好的东西，我们可以利用VB做一个小程序，实现阅读输入文本内容的目的

我们可以这样设计程序的界面：


voice1

代码如下：

Private Sub Command1_Click()

CreateObject(“SAPI.SpVoice”).Speak Text1.Text & “”

\\意思是：点击command1这个按钮时，朗读text 1文本框中的内容

End Sub

Private Sub Command2_Click()
End

End Sub

\\意思是：点击command2时，退出程序

Private Sub Text1_Change()

End Sub

完工了就是这个样子，我黑给了他个图标。。

voice2

很简单吧。。。不过这个东西最大的缺陷就是，一旦说话就停不下来。。。。恩。。

下载地址：https://worldtree.net/down/voice.exe 下不了啊。。。如果你是教育网那我也帮不了你了。。