オブジェクトを引数で渡した場合

解決

ねこあめ 2003-03-05 06:08:48 No: 106183

Private Sub ErrObject(ByRef objTxt1 As Object, _
Optional ByRef objTxt2 As Object, _
Optional ByRef objTxt3 As Object)

上のように、引数をオブジェクトで渡したいのです。
そのとき、Optionalで設定した、

objTxt2
objTxt3

にオブジェクトが渡されているかどうか
確認する方法はありますでしょうか？

isMissing()関数だと、値をみてしまいます。
よろしくお願いいたします。

たかみちえ URL 2003-03-05 08:22:04 No: 106184

Delphiでなら、Assigned(objTxt2) またはobjTxt2 <> nil (いずれも値があればTrue)ですから、
オブジェクトがNullであるか確認できればいいんですよね。

VBでは…。Nothingとか、使えないでしょうか？
objTxt2 <> Noting

とろ 2003-03-05 18:03:57 No: 106185

> objTxt2 <> Noting

オブジェクトの場合は、 = や <> は使用できないので、 Is ですね。

Not (objTxt2 Is Nothing)
て感じかなぁ。

ねこあめ 2003-03-06 20:45:41 No: 106186

とろさんの方法でできました。
ありがとうございました＾＾