クラスモジュールへ構造体を渡す（戻す）には？ (ID:119497)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 「パブリックオブジェクトモジュールで定義されたパブリックユーザ定義型に 外部公開されたユーザ定義型ならば、メソッドの引数に使えるという事です。 つまり、標準モジュールでユーザ定義型を宣言するのではなく、 Instancingプロパティを Privte以外に設定したクラスモジュール上にて 宣言すればOKという事です。 > 限り、クラスモジュール内のパブリックプロシージャの引数又は戻り値、 > またはパブリックユーザ定義型の要素としてしようすることが出来ます。」 こちらは、外部公開されていないユーザ定義型の場合でも、 Publicより狭いスコープ(Friend等)のメソッドであればOKという意味です。 Publicスコープが必要なら、ユーザー定義型を公開する。 Publicスコープが不要なら、FriendやPrivateに縮小しましょう。 どちらも駄目なら、ユーザー定義型をクラスに変更しましょう。 > Dim infPrint As TyPrintInfo New TyPrintInfo この時点で文法エラー……。 > If uPrintObj.fnInitialize(infPrint) = False Then uPrintObj が Nothingのままなので、実行時エラーに……。 > End Case End Selectですよ。(^^;