|
FireEvaluateComplete Method
|
|
|
Applies To
|
BasicTcl Object, AdvancedTcl Object
|
|
Prototype
|
FireEvaluateComplete(Interpreter As Long, CommandString As String, CommandOutput As String, ErrorLine As Long, Flags As Long, Reserved As Long, Result As Long)
|
|
Input
|
The "Interpreter" parameter, which is a valid interpreter pointer.
The "CommandString" parameter, which contains the command that was evaluated.
The "CommandOutput" parameter, which contains the string result of the evaluation.
The "ErrorLine" parameter, which contains the error line (if any) of the evaluation.
The "Flags" parameter, which could be any of the evaluation flags in the TCLBCommandOptions enumeration.
The "Reserved" parameter, which is reserved for future use and must be zero.
The "Result" parameter, which contains the Tcl result code of the evaluation.
|
|
Output
|
None.
|
|
Returns
|
None.
|
|
COM Results
|
None.
|
|
Side Effects
|
None.
|
|
Description
|
Fires the EvaluateComplete event immediately.
|
|
Notes
|
This method is used internally by the component.
External use of this method is allowed, however it should not be necessary to call this method.
|
|
Example
|
Private Sub Command1_Click()
Dim poTcl As TclBridge.BasicTcl Dim plInterpreter As Long Dim psOutput As String Set poTcl = New TclBridge.BasicTcl Call poTcl.CreateInterpreter(plInterpreter) ' psOutput will equal the current clock value in seconds ' since the "start of time" psOutput = vbNullString plResult = poTcl.Evaluate(plInterpreter, "set x [clock seconds]", psOutput, 0&, TCLBCommandOptions.TCLB_cSTRING Or TCLBCommandOptions.TCLB_cGLOBAL, 0&) Call poTcl.FireEvaluateComplete(plInterpreter, "set x [clock seconds]", psOutput, 0&, TCLBCommandOptions.TCLB_cSTRING Or TCLBCommandOptions.TCLB_cGLOBAL, 0&, plResult) Call poTcl.DeleteInterpreter(plInterpreter) Set poTcl = Nothing End Sub |