编程错误

Question

Imports SpeechLib

Public Class Form1
    Public vox = CreateObject("sapi.spvoice")
    Private Sub cmdSpeak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSpeak.Click
        Dim t As String = "Hello , This is a Text"
        Say(t)
    End Sub

    Public Sub Say(ByVal text As String)
        vox.Speak(text,SpeechVoiceSpeakFlags.SVSFlagsAsync)
    End Sub

    Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPause.Click
        vox.pause()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        vox.AlertBoundary = SVEPhoneme
    End Sub
End Class

我收到错误

未声明名称“SVEPhoneme”。

我如何以及在哪里申报？

Answer 1

它是 SpeechVoiceEvents.SVEPhoneme

如果您提前绑定此代码，这一切都会容易得多：

Public vox as New SpVoice

或者更好的是，使用 sapi、System.Speech 程序集的 .NET 包装器。

Imports System.Speech.Synthesis

Public Class Form1
    Public vox As New SpeechSynthesizer

    Public Sub Say(ByVal text As String)
        vox.SpeakAsync(text)
    End Sub
End Class

Answer 2

SVEPhoneme 代表 Phoneme 事件，当引擎在说话时完成一个音素时就会发生该事件。

尝试将 SVEPhoneme 设置为整数 64。

http:/ /msdn.microsoft.com/en-us/library/ms720886(v=vs.85).asp