语音朗读

FoxTable可以自动将一段文本朗读出来。
在默认的情况下，Windows Vista/7可以正常朗读中英文，而Windows XP只能朗读英文，不过你可以另外安装语音库来解决这个问题。
实际上，使你用的是Windows Vista/7，也可以另外安装语音库来获得更好的朗读效果。

提示：无需去刻意理解下面的代码，实际工作的时候，只需套用即可。

示例一

如果你要用默认的设置朗读语音，那么很简单：

Dim sp As New DotNetSpeech.SpVoice()
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

执行上面的代码，计算机或自动朗读出“I am from china.”

示例二

上面的朗读代码是异步的，在朗读的同时，你可以继续进行下一步的操作。
如果是同步朗读，那么在朗读过程中，将挂起程序，不能进行任何操作，直到朗读结束。

同步朗读的代码：

Dim sp As New DotNetSpeech.SpVoice()
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)

示例三

通过设置Rate属性，可以调整朗读语速，Rate的默认值是0，可以为负数，值越大，语速越快。
你可以在命令窗口分别执行下面两段代码，比较一下朗读速度。

快速朗读：

低速朗读：

Dim sp As New DotNetSpeech.SpVoice()
sp.rate = -3
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

示例四

你可以通过下面的代码来获得所有已经安装的语音库的名称：

Dim sp As New DotNetSpeech.SpVoice()
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

怎么把"I am from china."换成单元格内容？

在原示例窗口中增加“语音校对”按钮

Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim sp As New DotNetSpeech.SpVoice()
Dim vl As String = e.Form.Controls("txtContent").Value \'获得要朗读的文本
sp.Rate = e.Form.Controls("boxSpeed").Value \'设置语速
sp.Voice = sp.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) \'选择语音库
With CurrentTable
    For r As Integer = .TopPosition To  .BottomPosition
        For c As Integer = .LeftCol To .RightCol
            Dim v As String = .Rows(r)(c)
             If  e.Form.Controls("rdoAsync").Checked Then
                sp.Speak(v, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) \'异步朗读
            Else
                sp.Speak(v, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault) \'同步朗读
            End If
        Next
    Next
End With

谁说复杂？ 及时语音校对，不过两行代码而已：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目74.table

一行在全局代码，一行在ValidateEdit事件。