Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
VB6 and VBScript 2
- Thread starter drathbone
- Start date
-
1
- #2
Hi,
Add the MS script control to a form in your project.
Use can then use the eval method. E.g.
----------------------------------------------------------
Dim n As Integer
ScriptControl1.ExecuteStatement ("i=2"
n = ScriptControl1.Eval("i+1"
MsgBox
---------------------------------------------------------- Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'
Add the MS script control to a form in your project.
Use can then use the eval method. E.g.
----------------------------------------------------------
Dim n As Integer
ScriptControl1.ExecuteStatement ("i=2"
n = ScriptControl1.Eval("i+1"
MsgBox
---------------------------------------------------------- Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'
- Thread starter
- #3
-
1
- #4
Not a stupid question at all.
Ok, first of all you need to add a refererence to the Microsoft Script Control (although you can do late binding and avoid the reference if you prefer). Then, for this example, you need a form with a textbox, a label and a command button. You will be able to enter calcuations into the textbox (e.g 2+5, (2+6)/4), and hit the command button to get the result in the label. You just need to drop in the following code:
[tt]
Option Explicit
Private Sub Command1_Click()
Dim wsh As ScriptControl 'Change to As Object if you don't want to add a refference
' Done this way rather than with New to cater for the fact we may have decided not to add a reference
' and therefore wsh may be declared As Object.
Set wsh = CreateObject("MSScriptControl.ScriptControl"
wsh.Language = "vbscript" ' Vital - must tell script control which of the several script languages it is to use
Label1 = wsh.Eval(Text1.Text)
End Sub
Ok, first of all you need to add a refererence to the Microsoft Script Control (although you can do late binding and avoid the reference if you prefer). Then, for this example, you need a form with a textbox, a label and a command button. You will be able to enter calcuations into the textbox (e.g 2+5, (2+6)/4), and hit the command button to get the result in the label. You just need to drop in the following code:
[tt]
Option Explicit
Private Sub Command1_Click()
Dim wsh As ScriptControl 'Change to As Object if you don't want to add a refference
' Done this way rather than with New to cater for the fact we may have decided not to add a reference
' and therefore wsh may be declared As Object.
Set wsh = CreateObject("MSScriptControl.ScriptControl"
wsh.Language = "vbscript" ' Vital - must tell script control which of the several script languages it is to use
Label1 = wsh.Eval(Text1.Text)
End Sub
- Thread starter
- #5
- Thread starter
- #6
- Status
