![]() Label2.Text = "Grammar " & e. & " " & e.Result.Text Private Sub recognizer_SpeechRecognized(sender As Object, e As SpeechRecognizedEventArgs) Handles recognizer.SpeechRecognized Label1.Text = ("Grammar " & grammarName & " " & If((grammarLoaded), "Is", "Is Not") & " loaded.") ![]() Label1.Text = "LoadGrammar for " & grammarName & " failed with a " & e.().Name & "." ![]() Private Sub recognizer_LoadGrammarCompleted(sender As Object, e As LoadGrammarCompletedEventArgs) Handles recognizer.LoadGrammarCompletedĭim grammarName As String = e.Grammar.Nameĭim grammarLoaded As Boolean = e.Grammar.Loaded ![]() ' Start asynchronous, continuous recognition. Recognizer.LoadGrammarAsync(yesnoGrammar) Public Event SpeechRecognized As EventHandler(Of SpeechRecognizedEventArgs)ĭim wordlist As String() = New String() ))ĭim dictation As Grammar = New DictationGrammar()
0 Comments
Leave a Reply. |