Foxtable(狐表)用户栏目专家坐堂 → [求助]调用内部函数字典


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

主题:[求助]调用内部函数字典

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]调用内部函数字典  发帖心情 Post By:2022/9/19 14:36:00 [显示全部帖子]

自定义函数,名称ButtonZd
Dim zd As New Dictionary(Of String, String)
zd.Add("AddNew", "增加行")
zd.Add("MoveUpRow", "上移行")
zd.Add("MoveDownRow", "下移行")
zd.Add("Save", "保存")
......

Return zd

'--------------------------------------------------这样的用法可以
Dim zd As New Dictionary(Of String, String)
zd.Add("AddNew", "增加行")
zd.Add("MoveUpRow", "上移行")
zd.Add("MoveDownRow", "下移行")
zd.Add("Save", "保存")
......

Dim sz1() As String = zd.Keys.ToArray() '键转化为数组
Dim sz2() As String = zd.Values.ToArray() '值转化为数组

’--------------------------------------------------调用字典,为什么会出错呢
Dim sz1() As String = Functions.Execute("ButtonZd").Keys.ToArray()
Dim sz2() As String = Functions.Execute("ButtonZd").Values.ToArray()

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2022/9/19 14:50:00 [显示全部帖子]

感谢!感谢!感谢老师!

 回到顶部