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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/15151.html
標籤：資源
上一篇：VB呼叫word打開檔案，路徑內“/”和“ ”被轉義。
下一篇：能否幫忙啊 這是一個演算法的題