自定義了一個(gè)函數(shù)，因?yàn)檫@個(gè)函數(shù)要返回多個(gè) 值，不可能定義成數(shù)組arr() ,然后arr(0)=? ,arr(1)=? 這樣一個(gè)一個(gè)賦值 ，我試著用了一個(gè)集合 dim a as new collection然后在這個(gè)集合里面添加我要的返回值a.add " 信息1"a.add "信息2"················· ，那 能不能讓這個(gè)函數(shù)的返回值是 a這個(gè)集合， 我想在其他地方調(diào)用這個(gè)函數(shù)，然后判斷 函數(shù)返回的 a集合 里面的值 ，如何返回個(gè)集合
2 回答
慕慕森
TA貢獻(xiàn)1856條經(jīng)驗(yàn) 獲得超17個(gè)贊
'方法1
Function GetCollection1() As Collection
Dim col As Collection
Set col = New Collection
col.Add "信息1"
col.Add "信息2"
Set GetCollection1 = col
Set col = Nothing
End Function
'方法2
Sub GetCollection2(col As Collection)
Set col = New Collection
col.Add "信息3"
col.Add "信息4"
End Sub
Private Sub Command1_Click()
Dim a As Collection
Dim b
Set a = GetCollection1
For Each b In a
Debug.Print b
Next
Call GetCollection2(a)
For Each b In a
Debug.Print b
Next
End Sub
慕容森
TA貢獻(xiàn)1853條經(jīng)驗(yàn) 獲得超18個(gè)贊
Private Type ABC '自定義數(shù)據(jù)類型
arr() As Variant '數(shù)組
a As New Collection '集合
End Type
Private Function f() As ABC '函數(shù)返回值是自定義類型
ReDim f.arr(3) '定義數(shù)組上界
For i = 0 To UBound(f.arr)
f.arr(i) = i '數(shù)組賦值
Next i
f.a.Add "信息1" '集合賦值
f.a.Add "信息2"
End Function
Private Sub Form_Click()
Dim x As ABC
x = f '調(diào)用函數(shù)
For i = 0 To UBound(x.arr)
Print x.arr(i) '輸出數(shù)組
Next i
For Each i In x.a
Print i '輸出集合
Next
End Sub
- 2 回答
- 0 關(guān)注
- 762 瀏覽
添加回答
舉報(bào)
0/150
提交
取消