クラス.プロパティにユーザ定義型を引き渡す方法

解決

まさお 2004-09-14 18:49:19 No: 85547

まさおと申します。宜しくお願いします。

クラスモジュールのプロパティにユーザ定義型変数の受け渡し方法を教えて下さい。

*****クラスモジュール*****
Private mvara As UserType

Public Property Set a(ByVal vData As UserType) '<=コンパイルエラー
Set mvara = vData
End Property

Public Property Get a() As UserType
Set a = mvara
End Property

*****標準モジュール*****
Public Type UserType
i As Integer
s As String
End Type

上記のようにすると
「コンパイルエラー
  パブリックオブジェクトモジュールで定義されたパブリックユーザ定義
  型に限り、クラスモジュール内のパブリックプロシージャの引数または
  戻り値、またはパブリックユーザ定義型の要素として使用することがで
  きます。」
となります。

標準モジュールでは Option Private は設定していません。

どのようにすれば、クラスモジュール内のパブリックプロシージャの引数、または、戻り値にユーザ定義型を使用することができるのか、アドバイスをお願い致します。

まさお 2004-09-14 18:52:51 No: 85548

自己レスです。バージョンを記入し忘れました。

WinXP VB6 SP6 です。

宜しくお願い致します。

過去ログより 2004-09-14 23:47:59 No: 85549

まさお 2004-09-15 08:38:06 No: 85550

過去ログよりさん、どうもありがとうございました。

での魔界の仮面弁士さんのコメントで、現在の私の理解力では難しい点はありますが、とりあえずこれを参考にして自分なりにチャレンジしたいと思います。

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

クラス.プロパティ に ユーザ定義型を引き渡す方法