Foxtable(狐表)用户栏目专家坐堂 → 如何编写带参数的内部函数?


  共有3770人关注过本帖树形打印复制链接

主题:如何编写带参数的内部函数?

帅哥哟,离线,有人找我吗?
菲舍尔
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:509 积分:3547 威望:0 精华:3 注册:2012/11/13 15:49:00
  发帖心情 Post By:2014/10/10 17:26:00 [显示全部帖子]

以下是引用刘海屋在2014-10-8 14:26:00的发言:

例如:我编写了一个带参数的内部函数如下:

Dim Arg1() As String    'Arg1(0)=字符串1如“你好”,Arg1(1)=字符串2,如“我也很好”
Dim Arg2 As String   'Arg2 为字符串3 如“你能来吗?”

MessageBox.Show(Arg1(0) & Arg1(1) & Arg2)

return

 

调用部分为:

 

Functions.Execute("New_TarifFileListView","你好", "我也很好", "你能来吗?")

 

这样调用有问题。请问调用部分应该如何写才正确?再次感谢。刘海屋

 

自定义函数错了,不能重复定义 args

 

直接:

 

MessageBox.Show(Arg1(0) & Arg1(1) & Arg2)

return

 

即可


 回到顶部
帅哥哟,离线,有人找我吗?
菲舍尔
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:509 积分:3547 威望:0 精华:3 注册:2012/11/13 15:49:00
  发帖心情 Post By:2014/10/11 18:00:00 [显示全部帖子]

以下是引用刘海屋在2014-10-10 20:33:00的发言:

你好。我写全一个简化的自定义函数和其调用如下:

1。自定义函数(函数名=New_EmailWithNoAttachment):

    

Dim New_EmailWithNoAttachment() As String = Args(2)


Dim Pnl2 As WinForm.Panel = Forms(Args(0)).Controls(Args(1))
Pnl2.Visible = True

 

2. 调用程序为:

  

Functions.Execute(("New_EmailwithNoAttachment"), "New_CommuW", "Pnl2")

 

3。错误信息为:

    自定义函数“New_EmailWithNoAttachment"执行出错,错误信息如下:

      System.IndexOutOfRangeException索引超出了数组界限

      在UserCode.AE.....Azw(Objet[]Args)

 

请帮助分析错误在哪里,万分感谢。

刘海屋

函数中定义三个参数,调用的时候,给两个,这个还不出错?

 

再说了:

Functions.Execute(("New_EmailwithNoAttachment"), "New_CommuW", "Pnl2")

调用应该是这样的:

Functions.Execute("New_EmailwithNoAttachment", 参数1,参数二,参数三)

[此贴子已经被作者于2014-10-11 18:02:00编辑过]

 回到顶部