易语言传递对象貌似有问题

mmm325400

黑月对象型正常，变体型不正常。
易语言全部不正常
VB全正常
test.rar (2.95 KB, 下载次数: 1)

2024-10-13 01:01 上传

点击文件名下载附件
下载积分: 精币 -2 枚

[Visual Basic] 纯文本查看 复制代码

Private Sub Command1_Click()
    Dim a, b, c
    Dim t As String, o As Object, s As String
    s = "Sub Name(o, t, a, b, c)" & vbCrLf & _
        "On Error Resume Next" & vbCrLf & _
        "MsgBox VarType(o) & "", "" & VarType(t) & "", "" & VarType(a) & "", "" & VarType(b) & "", "" & VarType(c)" & vbCrLf & _
        "MsgBox o.Language, , ""o""" & vbCrLf & _
        "MsgBox a.Language, , ""a""" & vbCrLf & _
        "MsgBox TypeName(o), , ""o""" & vbCrLf & _
        "MsgBox TypeName(a), , ""a""" & vbCrLf & _
    "End Sub"
    
    Set o = CreateObject("ScriptControl")
    o.Language = "VBScript"
    o.AddCode s
    
    t = "aaabbbccc"
    Set a = o
    b = t
    c = 123456
    Call o.run("Name", o, t, a, b, c)
End Sub

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

变量名	类 型	静态	数组	备 注
a	变体型
b	变体型
c	变体型
t	文本型
o	对象

o.创建 (“ScriptControl”, )
o.写属性 (“Language”, “VBScript”)
o.方法 (“AddCode”, #脚本 )
t ＝ “aaabbbccc”
' a.置类型 (5)
a.赋值 (o, )
b.赋值 (t, )
c.赋值 (123456, )
o.方法 (“Run”, “Name”, o, t, a, b, c)
返回 (0)  ' 可以根据您的需要返回任意数值

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> .局部变量 a, 变体型<br /> .局部变量 b, 变体型<br /> .局部变量 c, 变体型<br /> .局部变量 t, 文本型<br /> .局部变量 o, 对象<br /> <br /> o.创建 (“ScriptControl”, )<br /> o.写属性 (“Language”, “VBScript”)<br /> o.方法 (“AddCode”, #脚本)<br /> t ＝ “aaabbbccc”<br /> ' a.置类型 (5)<br /> a.赋值 (o, )<br /> b.赋值 (t, )<br /> c.赋值 (123456, )<br /> o.方法 (“Run”, “Name”, o, t, a, b, c)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

#脚本 ===================================

[Visual Basic] 纯文本查看 复制代码

Sub Name(o, t, a, b, c)
    On Error Resume Next
    MsgBox VarType(o) &" , "& VarType(t) &" , "& VarType(a) &" , "& VarType(b) &" , "& VarType(c)
    MsgBox o.Language,,"o"
    MsgBox a.Language,,"a"
    MsgBox TypeName(o),,"o"
    MsgBox TypeName(a),,"a"
End Sub

涤尘

谢谢分享，学习一下

真IKUN

感谢分享，很给力！~

真IKUN

感谢分享，很给力！

vosia

谢谢谢谢

samdownload404

这个问题我也在思考！

dnxl

你要知道o是易语言的对象类型，并不是你创建的scriptcontrol对象