戻り値がクラスオブジェクト

質問

ＶＢ初心者でわからないので教えてください。

ある関数を呼び出して戻り値を取得するのですが、その戻り値がクラスオブジェクトとなっています。いろいろ調べてみましたが、いい結果にヒットしなかったので今回質問してみました。

言語はVB6.0です

Function 関数Ａ(A as String, B as String)
dim C as Class1
set C = new Class1

Class1で宣言された変数に値を入れる処理

　 関数Ａ = C
end Function

イメージはこんな感じです。

すみませんが解決策を教えてください。。。。

回答No.1

redfox63 · ベストアンサー

Function 関数A( ssA as String, ssB as String) as Class1
　　Dim c as Class1
　　set c = new Class1
　　c.PropA = ssA
　　Set 関数A = c
End Function

といった具合になると思います
関数定義の As句に 戻り値の型を指定
オブジェクトになるので 関数名 = c を Setステートメントで行います

お礼

redfox63のやり方で無事解決いたしました。

ありがとうございました。