SpeechSynthesizer.SpeakAsyncCancelAll() не отменяет

Question

У меня есть кнопка в моей форме, которая помечена как «Говорить», когда пользователь нажимает на нее synth.SpeakAsync(Textbox.text) уволен, а кнопка меняет свой текст на «Остановить разговор».

Однако, когда пользователь нажимает кнопку остановки, тем самым загоняя synth.speakAsyncCancelAll(), он не отменяет текст речи в середине.

Вот мой код:

Private Sub btnSpeak_Click(sender As System.Object, e As System.EventArgs) Handles btnSpeak.Click 
    If RTextBox.Text = "" Then Exit Sub 

    Dim synth As New SpeechSynthesizer 
    synth.Rate = -2 

    If btnSpeak.Text = "Stop Speaking" Then 
     btnSpeak.Text = "Speak" 
     synth.SpeakAsyncCancelAll() 

    ElseIf btnSpeak.Text = "Speak" Then 
     btnSpeak.Text = "Stop Speaking" 
     synth.SpeakAsync(RTextBox.Text) 
    End If 

Answer 1

Каждый раз при нажатии кнопки А создается новый синтезатор речи. Возьмите тусклый синтезатор, как новый синтезатор речи, из события нажатия кнопки. таким образом, он будет ссылаться на один и тот же синтезатор каждый раз, и тогда он должен активировать событие с отменой речи

Answer 2

SpeakAsyncCancelAll() поднимет SpeakCompleted события после вызова, вы можете слушать его, используя следующий код:

Imports System.Speech.Synthesis 

Public Class Form1 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Dim synthesizer As New SpeechSynthesizer() 
     AddHandler synthesizer.SpeakCompleted, AddressOf speakCompleted 
    End Sub 

    Private Sub speakCompleted(ByVal sender As Object, ByVal e As SpeakCompletedEventArgs) 
     Dim cancelled = e.Cancelled 
    End Sub 
End Class