- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
898 ：デフォルトの名無しさん[sage]：2015/06/01(月) 22:31:51.95 ID:NN8EkQRr - >>856
C++には参照渡しの他に参照型と言う概念は無いのかな？
戻り値が値渡しと言うなら参照型、つまり生成して渡すものであれば別にクラスでもいいんだけど、
要は参照型の値渡しをしてやればいい。
とりあえず思い付いたのがコレクションだったので、そう書いただけだけどね。
Private Sub ReferTest1()
Dim collection1 As New collection
Dim collection2 As collection
Call collection1.Add("AAA")
Set collection2 = ReferTest2(collection1)
Call MsgBox(collection1 Is collection2)
End Sub
Private Function ReferTest2(ByVal coll As collection) As collection
Call coll.Add("BBB")
Set ReferTest2 = coll
End Function
これで戻り値に参照が渡ったことが確認出来るよね。
|