主题：自定义函数问题

functions.execute（“函数名”，“参数1”，“参数2”，“参数3”，……）

能不能这样改成：

dim s as string=“函数名”&“，”&“参数1” &”，“&“参数2”&”，“&“参数3”，……

functions.execute（s）

不行的，因为函数的原型是 functions.execute（string,object()）

 

你可以

 

dim obj() as object = {参数1，参数2，……}

 

functions.execute（函数名,obj）

 

或者自己做一个函数来做统一的接口

 

 

好的，谢谢指点

Dim cs() As String
cs =r("参数").Split(",")'r(“参数”)里面存放函数的若干参数
Dim Names() As object                             

Dim objs As New List(Of object)
        For i As Integer =0 To cs.Length -1
                      objs.Add(cs(i))
        Next
 Names=objs.ToArray() '将集合转换为数组      
Functions.execute(“函数1”,Names)
代码执行提示错误，高手帮指点

什么错误？

是参数传递错误，还是函数执行错误

如果你的参数都是String型的

Dim cs() As String
cs =r("参数").Split(",")    'r(“参数”)里面存放函数的若干参数

   ’判断一下空值
Functions.execute(“函数1”,cs)

我传递的参数是e,object型的。

函数代码是

Dim e As object = args(0)
e.sender.ShowToolTip("您好", 3000）

错误如下图

此主题相关图片如下：qq截图20160109225834.png

函数名是“提示”

Dim cs() As String cs =r("参数").Split(",")'r(“参数”)里面存放函数的若干参数 Dim Names() As object                              Dim objs As New List(Of object)         For i As Integer =0 To cs.Length -1                       objs.Add(cs(i))         Next  Names=objs.ToArray() '将集合转换为数组       Functions.execute(“提示”,Names)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.zip

这是例子，请高手帮忙

 不能直接把字符串用来用啊，动态编译。

 

Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)" & vbcrlf
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")