VBS中实现函数多返回值
2012-02-04 22:44
211 查看
VBScript中的函数可以是Sub,也可以是Function,但Sub是没有返回值的,而Function只能有一个返回值。这一讲主要介绍如何借助其他手段使Function也能有多个返回值。
方法1 —— 借助Class
方法2 —— 借助Dictionary对象
方法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
相关文章推荐
- VBS中实现函数多返回值
- Oracle 实现 split 函数 (返回数组)
- SQL存储过程中调用返回表类型参数的函数的一种实现
- oracle函数返回表的实现
- oracle 实现 split 函数 (返回数组)
- 仅返回类型不同的函数,在C++中如何实现重载?
- Python实现一元二次方程的定义是:ax2 + bx + c = 0 请编写一个函数,返回一元二次方程的解。
- Python实现一元二次方程的定义是:ax2 + bx + c = 0 请编写一个函数,返回一元二次方程的解。
- PHP实现强类型函数返回值
- oracle实现用函数返回表集合
- 顺序表来实现函数:删除最小值并返回删除元素,空出位置用尾部元素来填补,删除与给定值相同的所有的元素,删除给定值s,t(s<t)之间的元素
- C#函数如何实现类似多个返回值的功能
- 01微信公众平台 - 实现【笑话】功能函数,返回一个文本字符串。
- oracle函数实现字符串分割,返回表格式的结果集
- 函数处理结果返回给调用函数,实现代码模块化,便于单元测试
- TP5 实现查询数据库返回json数据(返回json数据函数实例)
- JavaScript实现函数返回多个值的方法
- JavaScript实现函数返回多个值的方法
- 使用递归实现DigitSum()函数,输入一个非负整数,返回组成它的数字之和
- C语言中实现函数返回字符串