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

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

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

言語はVB6.0です

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

Class1で宣言された変数に値を入れる処理
　
　 関数Ａ = C
end Function

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

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

No.1 ベストアンサー 回答者： redfox63 回答日時： 2008/07/01 23:36

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のやり方で無事解決いたしました。

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

お礼日時：2008/07/02 18:00