VBS中实现函数多返回值
2013-07-16 11:18
197 查看
方法1 —— 借助Class
' 定义一个有多个变量成员的类
Class MultiValue
Dim a, b, c
End Class
Function ClassMulti(param1, param2, param3)
Dim oClass
' 实例化类
Set oClass = New MultiValue
oClass.a = param1
oClass.b = param2
oClass.c = param3
' 指定函数返回为oClass对象
Set ClassMulti = oClass
End Function
Dim oClass
Set oClass = ClassMulti("value1","value2","value3")
Msgbox oClass.a & vbCrlf & oClass.b & vbCrlf & oClass.c
方法2 —— 借助Dictionary对象
Function DictionaryMulti(param1, param2, param3)
Dim oDict
' 创建字典对象
Set oDict = CreateObject("Scripting.Dictionary")
' 增加键名和键值
oDict("a") = param1
oDict("b") = param2
oDict("c") = param3
' 指定函数返回为Dictionary对象
Set DictionaryMulti = oDict
End Function
Dim oDict, sMsg
Set oDict = DictionaryMulti("value1", "value2", "value3")
' 遍历返回的Dictionary中的键
For Each vKey In oDict
sMsg = sMsg & oDict.Item(vKey) & vbCrlf
Next
Msgbox sMsg
' 定义一个有多个变量成员的类
Class MultiValue
Dim a, b, c
End Class
Function ClassMulti(param1, param2, param3)
Dim oClass
' 实例化类
Set oClass = New MultiValue
oClass.a = param1
oClass.b = param2
oClass.c = param3
' 指定函数返回为oClass对象
Set ClassMulti = oClass
End Function
Dim oClass
Set oClass = ClassMulti("value1","value2","value3")
Msgbox oClass.a & vbCrlf & oClass.b & vbCrlf & oClass.c
方法2 —— 借助Dictionary对象
Function DictionaryMulti(param1, param2, param3)
Dim oDict
' 创建字典对象
Set oDict = CreateObject("Scripting.Dictionary")
' 增加键名和键值
oDict("a") = param1
oDict("b") = param2
oDict("c") = param3
' 指定函数返回为Dictionary对象
Set DictionaryMulti = oDict
End Function
Dim oDict, sMsg
Set oDict = DictionaryMulti("value1", "value2", "value3")
' 遍历返回的Dictionary中的键
For Each vKey In oDict
sMsg = sMsg & oDict.Item(vKey) & vbCrlf
Next
Msgbox sMsg
相关文章推荐
- VBS中实现函数多返回值
- c语言中调用函数的返回值,如果是数组,主函数要输出这个数组怎么实现?
- JavaScript实现函数返回多个值的方法
- JavaScript实现函数返回多个值的方法
- 使用递归实现DigitSum()函数,输入一个非负整数,返回组成它的数字之和
- C语言中实现函数返回字符串
- 实现函数 functionFunction,调用之后满足如下条件: 1、返回值为一个函数 f 2、调用返回的函数 f,返回值为按照调用顺序的参数拼接,拼接字符为英文逗号加一个空格,即 ', ' 3、所
- 编一个程序,将两个字符串s1和s2比较,返回差值,即实现strcmp函数功能
- 利用java反射调用实现对字符串的解析,成功调入函数,并且返回值
- TP5 实现查询数据库返回json数据(返回json数据函数实例)
- 利用顺序表的操作,实现以下函数: 1)从顺序表中删除具有最小值的元素并由函数返回被删除元素的值。空出的位置由最后一个元素填补,若顺序表为空则显示出错信息并退出运行。
- MSSQL 自定义函数实现类似于 split 方法,返回表
- C++ 利用指针和结构体实现一个函数返回多个值
- va_arg() 实现不定参数函数 返回参数不匹配问题
- C 语言 实现 字符串 分割 函数(返回"二维字符数组",及分割后的字符数组的长度)
- 【经典算法】:如何在一个函数里面返回多个值的实现
- 实现按两次返回键退出应用(利用安卓按后退键引发的函数)
- Chapter 3 | Stacks and Queues--实现一个函数返回栈中的最小值,时间复杂度为O(1)
- python使用threading获取线程函数返回值的实现方法
- C函数调用-不使用函数返回值,而用参数实现输入/输出的4种模式