文本转语音

• 下载演示项目 - 2.01 Kb

引言

本教程将向您展示如何创建一个非常简单的程序，它可以实际说话！ 如果您尚未下载，则需要下载文本转语音控件。

步骤 1 - 添加控件

首先添加一个新的标准 EXE 项目。 然后将项目名称更改为 TextToSpeech。 将窗体名称更改为 frmSpeak。 通过右键单击工具箱然后选择组件，将 Direct Text-to-Speech 控件添加到窗体。 单击 Microsoft Direct Text-to-Speech 项目，然后单击“确定”。

在窗体上绘制文本转语音控件，并将它的名称属性设置为 spkSpeak，可见属性设置为 false。 接下来添加 10 个按钮。 将它们的名称设置为 btnNumbers，并将标题设置为比它们的索引大一。 然后添加一个文本框，并将它的名称更改为 txtText，将 text 属性设置为空，并将 multiline 属性设置为 true。 在文本框下方添加一个按钮。 将它的名称设置为 btnSpeak，并将标题设置为 Speak。

步骤 2 - 声明常量

下一步是添加代码。 此代码将说出按钮的标题，然后根据您单击的按钮运行一个程序。 将此代码添加到通用声明

Const Notepad = "c:\windows\notepad.exe"
Const Wordpad = "C:\program files\accessories\Wordpad.exe"
Const Paint = "c:\windows\Pbrush.exe"
Const Calculator = "c:\windows\Calc.exe"
Const Volume = "c:\windows\Sndvol32.exe"
Const InternetExplorer = "C:\Program Files\Internet Explorer\Iexplore.exe"
Const SoundRecorder = "c:\windows\Sndrec32.exe"
Const Clipboard = "c:\windows\Clipbrd.exe"
Const Dialer = "c:\windows\Dialer.exe"
Const Solitaire = "c:\windows\Sol.exe"

步骤 3 - 代码

现在将此代码添加到 btnNumbers 的单击事件下

spkSpeak.Speak "You clicked button number " & btnNumbers(Index).Caption & "."

Select Case Index + 1
  Case Is = 1
    Shell Notepad, vbNormalNoFocus
  Case Is = 2
    Shell Wordpad, vbNormalNoFocus
  Case Is = 3
    Shell Paint, vbNormalNoFocus
  Case Is = 4
    Shell Calculator, vbNormalNoFocus
  Case Is = 5
    Shell Volume, vbNormalNoFocus
  Case Is = 6
    Shell InternetExplorer, vbNormalNoFocus
  Case Is = 7
    Shell SoundRecorder, vbNormalNoFocus
  Case Is = 8
    Shell Clipboard, vbNormalNoFocus
  Case Is = 9
    Shell Dialer, vbNormalNoFocus
  Case Is = 10
    Shell Solitaire, vbNormalNoFocus
End Select

接下来，这段代码将说出在文本框中键入的文本。 将此代码添加到 btnSpeak 单击事件

spkSpeak.Speak txtText.Text

它的工作原理如下：单击按钮时，它会说“您点击了第几个按钮”，然后说出按钮的标题。 然后它会根据您单击的按钮运行一个程序。 此外，当您在文本框中键入内容时，它会读取文本并将其说出来。 您的窗体应该如下所示

如果您运行该程序，它应该说出您单击的按钮的标题并运行一个程序，如果您在文本框中键入内容，它应该说出您键入的内容。 玩得开心！