関数の引数にクラスを使いたい

質問

VBにてクラスモジュール「clsTest」を作成し、プロパティ「ID」,「FName」を作成しました。

ASPファイルにてclsTestを作成し、プロパティに値をセットしました。

VBの別のクラスモジュール「clsInset」の関数「dbInsert」に
作成したclsTestを渡したいと考えています。

VBはdllにしてASPから呼び出します。
関数clsInsetの引数にどのように書けば渡せるのかがわかりません。

よろしくお願いします。

回答No.3

noname#259269

長いこと ASP やってなかったもので、すみません。
先ほど確認しましたので、これで動くと思います。

Public Sub dbInsert(objTest As Variant)

お礼

ありがとうございました。
やっと先に進めそうです。

回答No.2

noname#259269

>Public Sub dbInsert(????????)
>
>End Sub

であれば、

Public Sub dbInsert(objTest As clsTest)

End Sub

ですよ。

補足

そうやってみましたがうまくいきませんでした。

回答No.1

noname#259269

>VBの別のクラスモジュール「clsInset」の関数「dbInsert」に

>関数clsInsetの引数にどのように書けば渡せるのかがわかりません。

clsInset は 関数なのかクラスモジュールなのかいったいどっちですか？

---

多分こういうことかな？

Dim ct
Dim ci
Set ct = Server.CreateObject("xxx.clsTest")
ct.ID = ...
ct.FName = ...
Set ci = Server.CreateObject("yyy.clsInset")
ci.dbInsert ct

補足

clsInset はクラスです。

コードは
=======ASP側========================
Set objTest = CreateObject("clsvb.clsTest")
objTest.ID = ...
objTest.FName = ...
Set objInset = CreateObject("clsvb.clsInset")
Call objInset.dbInsert(objTest)

=======VB側(clsvb.dll)========================
Public Sub dbInsert(????????)

End Sub
こんな感じです。