Visual Basic

Public Class Form1
 
    Private WithEvents RC As New SpeechLib.SpSharedRecoContext
    Private myGrammar As SpeechLib.ISpeechRecoGrammar
 
    Private Sub Form1_Load()
        myGrammar = RC.CreateGrammar()
        AddHandler RC.FalseRecognition, AddressOf RC_FalseRecognition
        AddHandler RC.Recognition, AddressOf RC_Recognition
        AddHandler RC.StartStream, AddressOf RC_StartStream
        myGrammar.CmdLoadFromFile("c:\sol.xml", SpeechLib.SpeechLoadOption.SLODynamic)
        myGrammar.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)
    End Sub
 
    Private Sub RC_FalseRecognition(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal Result As SpeechLib.ISpeechRecoResult)
        Label1.Capture = "(no recognition)"
    End Sub
 
    Private Sub RC_Recognition(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
        Label1.Capture = Result.PhraseInfo.GetText()
        TextBox1.Text = Result.PhraseInfo.GetText()
    End Sub
 
    Private Sub RC_StartStream(ByVal StreamNumber As Integer, ByVal StreamPosition As Object)
        Label2.Capture = Val(StreamNumber)
    End Sub
End Class

sapi.dude wrote:

but the code still doesn't work

    myGrammar.CmdLoadFromFile("c:\sol.xml", SpeechLib.SpeechLoadOption.SLODynamic)
    myGrammar.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)
    myGrammar.DictationSetState SpeechLib.SpeechRuleState.SGDSInactive
    myGrammar.CmdSetRuleIdState 0, SpeechLib.SpeechRuleState.SGDSInactive

<br />
Public Class Form1<br />
<br />
    Private WithEvents RC As New SpeechLib.SpSharedRecoContext<br />
    Private myGrammar As SpeechLib.ISpeechRecoGrammar<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        myGrammar = RC.CreateGrammar()<br />
        AddHandler RC.FalseRecognition, AddressOf RC_FalseRecognition<br />
        AddHandler RC.Recognition, AddressOf RC_Recognition<br />
        AddHandler RC.StartStream, AddressOf RC_StartStream<br />
        myGrammar.CmdLoadFromFile("c:\sol.xml", SpeechLib.SpeechLoadOption.SLODynamic)<br />
        myGrammar.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)<br />
        myGrammar.DictationSetState(SpeechLib.SpeechRuleState.SGDSInactive)<br />
        myGrammar.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSInactive)<br />
<br />
    End Sub<br />
   <br />
    Private Sub RC_FalseRecognition(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal Result As SpeechLib.ISpeechRecoResult)<br />
<br />
        Label1.Capture = "(no recognition)"<br />
<br />
    End Sub<br />
    Private Sub RC_Recognition(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)<br />
<br />
        Label1.Capture = Result.PhraseInfo.GetText()<br />
        TextBox1.Text = Result.PhraseInfo.GetText()<br />
<br />
    End Sub<br />
    Private Sub RC_StartStream(ByVal StreamNumber As Integer, ByVal StreamPosition As Object)<br />
<br />
        Label2.Capture = Val(StreamNumber)<br />
<br />
    End Sub<br />
End Class

de silva wrote:

Is there a flexgrid conrol in vb.net as in vb?if it is not,what should i do to get the same functinality.