vb通过scriptcontrol调用VBScript相互传递参数

最新推荐文章于 2020-06-06 21:41:10 发布

crazy-tiger

最新推荐文章于 2020-06-06 21:41:10 发布

阅读量2.9k

点赞数 1

文章标签： vbscript vb

本文链接：https://blog.csdn.net/u013490280/article/details/52121011

版权

VBScript代码

dim mm,Result
mm = 1
mm = data
if mm = 1 then
    MsgBox "1"
elseif mm = 2 then
    MsgBox "2"
else
    MsgBox "other"
endtf
Result= 123

VB代码

Private Sub cmdExecute_Click()
    Dim data As Integer
    data = 2
    Dim code As String
    code = "dim data " & vbCrLf & "data = " & data
    Set vbs = CreateObject("MSScriptControl.ScriptControl")
     vbs.Language = "VBScript"
     vbs.AddCode code
     vbs.ExecuteStatement (txtCode.Text)
     Dim i As Integer
     i = vbs.CodeObject.Result 'vbs返回值
     MsgBox "返回值Result：" & i
End Sub