使用文本语音开发包实现语音朗读功能（VB方法）

使用文本语音开发包实现语音朗读功能（VB方法）(2)
Private Declare Function Dll_SmartRead_CloseVB Lib "smartread.dll" (ByVal bNull As Long) As Long

Private Declare Function Dll_SmartRead_SetDialogVB Lib "smartread.dll" (ByVal hwndFrom As Long) As Long

Private Declare Function Dll_SmartRead_SpeakVB Lib "smartread.dll" (ByVal str As String, ByVal bstyle As Long) As Long

Private Declare Function Dll_SmartRead_StopVB Lib "smartread.dll" (ByVal bNull As Long) As Long

Private Declare Function Dll_SmartRead_VersionVB Lib "smartread.dll" (ByVal bNull As Long) As BE_VERSION

Private Declare Function Dll_SmartRead_InitialVB Lib "smartrea            这是smartread.dll动态链接库中，函数的声明，从函数名就可以看出，这是专门针对VB的函数。我简单介绍一个这几个函数的基本的功能。

Dll_SmartRead_InitialVB：用于初始化语音功能，必须在最初调用

Dll_SmartRead_CloseVB：用于关闭语音功能，在程序退出前调用，释放资源

Dll_SmartRead_SpeakVB：朗读函数。

Dll_SmartRead_StopVB：停止朗读函数

Dll_SmartRead_SetDialogVB：用于打开语音设置对话框，改变语音，音量，语速等

Dll_SmartRead_VersionVB：显示开发包版本信息（这个函数可以不用，如果要用的话，就必须作第二步）

第四步，现在就可以在软件中实现语音功能了。

1．  调用Dll_SmartRead_InitialVB

   Dim ddd As Long

ddd = Dll_SmartRead_InitialVB(Me.hWnd) '调用初始化函数

2. 调用Dll_SmartRead_SetDialogVB

Dim ddd As Long

ddd = Dll_SmartRead_SetDialogVB(Me.hWnd) '调用设置函数，可以改变到中文语音库

3．  用Dll_SmartRead_SpeakVB

   Dim ddd As Long

ddd = Dll_SmartRead_SpeakVB(“中文语音开发包”, 0) '朗读函数

4．  调用Dll_SmartRead_CloseVB

Dim bNull As Long

   Dim ddd As Long

ddd = Dll_SmartRead_StopVB(bNull) '调用停止朗读函数

5．  调用Dll_SmartRead_CloseVB 

Dim bNull As Long

Dim ddd As Long

ddd = Dll_SmartRead_CloseVB(bNull) '调用关闭函数

这么样，开发包的使用非常简单吧，如果你没有非常需求，文本语音开发包大概就可以满足你的要求了，当然如果你觉得开发包功能不够的话，就要研究微软的Speech API了，但是实现起来没有这么简单了，萝卜青菜，各有所好罢了。

如果你对这种方法感兴趣，可以到文本语音开发包的网站去看一看，现在已经推出1.1版本了。http://www.cnetseek.com/gb/smartread/smartreadlib.html