Foxtable(狐表)用户栏目专家坐堂 → 动态管理函数


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

主题:动态管理函数

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


加好友 发短信
等级:五尾狐 帖子:798 积分:9630 威望:0 精华:0 注册:2011/4/20 14:23:00
动态管理函数  发帖心情 Post By:2016/9/28 18:17:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:超级版主 帖子:107813 积分:548416 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/28 20:24:00 [只看该作者]

1、没有必要也不能先在内部函数里新建一个函数取名sum

2、第一次添加过后,第二次重新编译同名的需要先移除

Functions.Remove("Sum")
Dim Code As string
Code
 = "Dim Val1 As Integer = 1" & vbcrlf
Code
 = Code "Dim Val2 As Integer = 2" & vbcrlf
Code
 = Code "Dim Sum As Integer = Val1 + Val2" & vbcrlf
Code
 = Code "Return Sum"
Functions.Add(
"Sum",Code)
Functions.Complie()

 回到顶部