Public WithEvents RC As SpSharedRecoContext
Public myGrammar As ISpeechRecoGrammar
Private Sub Form_Load()
On Error GoTo err_Handler
Set RC = New SpSharedRecoContext '自动化错误
Set myGrammar = RC.CreateGrammar
myGrammar.DictationSetState SGDSActive
err_Handler:
MsgBox Err.Description
Stop
Resume
End Sub
Private Sub RC_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
Text1.Text = Result.PhraseInfo.GetText
End Sub