随着计算机多媒体技术的发展，让电脑唱歌说话已经不是什么新鲜事了。但是能不能在我们自己编写的软件中让电脑朗读文本信息呢？微软公司开发的一套文字朗读引擎(text-to-speech engine，简称 tts)使我们这一功能的实现变得易如反掌。只要您安装了“金山词霸2000”(或“金山词霸.net”)，那么在 windows 文件夹下会生成一个 speech 文件夹，里面的 vtxtauto.tlb 文件就包含了有关的类型库和函数，我们完全可以在我们的程序中调用它们，使电脑开口说话。tts 包含在“金山词霸”的安装盘上，文件名为 mstts.exe 和 spchapi.exe。要在 vb 程序中调用 tts，必须首先引用 vtxtauto.tlb 文件中的“voicetext 1.0 type library”类型库，方法是执行“工程\引用”，再点击“浏览”按钮，找到文件 \windows\speech\vtxtauto.tlb，将它添加到应用列表中，然后选中它，按“确定”按钮。这时可以按 f2 键打开“对象浏览器”查看 vtxtauto 对象的有关参数。
然后键入以下代码，执行它，电脑就可以说话了：
option explicit
private sub form_load()
call vtxtauto.vtxtauto.register(space(1), space(1)) '注册
vtxtauto.vtxtauto.speed = 170 '设置语速（170 为正常语速,值越小语速越慢）
dim strtxt
strtxt = "i'm a chinese. i love my motherland very much."
on error goto errorhand
call vtxtauto.vtxtauto.speak(strtxt, vtxtsp_veryhigh + vtxtst_reading)
msgbox "ok!"
end
errorhand:
'错误处理语句
end
end sub
美中不足的是微软的这套文字朗读引擎只能让电脑朗读英文。相信大家和我一样，盼望着国产的、技术成熟的汉语朗读软件的出现。
张庆 zhangking@263.net
http://www.why100000.com
2003.1.24
