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

名前

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

本文 お世話になります。 「印刷」に関するクラスモジュールを作成しているのですが クラスモジュール内で定義しているメソッドへデータ構造を渡したり 逆にデータ構造を戻したりすることは出来ないのでしょうか？ というのも、パラメータとしてデータ構造をメソッドへ渡した際、 「パブリックオブジェクトモジュールで定義されたパブリックユーザ定義型に 限り、クラスモジュール内のパブリックプロシージャの引数又は戻り値、 またはパブリックユーザ定義型の要素としてしようすることが出来ます。」 とのメッセージが表示されました。 具体的な対応策をご教授願います。 現在、以下のソースになっています。 '***** Class Module (Object Name = UPrint)***** Option Explicit Public Function fnInitialize( prmData As TyPrintInfo ) As Boolean 'データ構造の初期化を行なう 'データ構造内のオブジェクト変数に値を設定 '初期化成功時：TRUE 失敗時：FALSE End Function '***** Module ***** Option Explicit Type TyPrintInfo m_Printer As String ・・・・・・ m_InitErrCode As Integer m_FilePath As String ・・・・・・ その他、帳票初期化に関するオブジェクト変数 End Type '***** Form1 ***** Option Explicit Private Sub Command1_Click() Dim uPrintObj As UPrint Dim infPrint As TyPrintInfo New TyPrintInfo If uPrintObj.fnInitialize(infPrint) = False Then Select Case infPrint.m_InitErrCode Case 1 strMsg = "・・・・・" Case -1 strMsg = "・・・・・" Case -99 strMsg = "・・・・・" End Case MsgBox "[ERROR CODE: " & infPrint.m_InitErrCode & "]" & strMsg Exit Sub End If End Sub [開発環境] Windows2000, VisualBasic6.0