自定义函数，名称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()
加好友 
发短信
Post By：2022/9/19 14:36:00 [只看该作者]
