ActiveX コントロールにユーザー定義型プロパティを追加したい。 (ID:102836)

名前

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

本文

現在、VB6.0でActiveX コントロールの作成を行っております。

作成したUserControlに、同じプロジェクト内で作成したクラスClass1の型を持ったプロパティを追加し、
ReadProperties及びWritePropertiesメソッドによる値の読出し、書込みさらにはプロパティページと
の連携を実現したいのですが、ReadPropertiesメソッドで「実行時エラー '713'」が発生し、
上手く動作しません。誰かアドバイス頂けないでしょうか。

---------------- 以下、ソースコード ----------------

Option Explicit

'同プロジェクト内に Class1 が存在するとします。
Private m_P1 As Class1

Public Property Get P1 As Class1

Set P1 = m_P1
End Property
Public Property Set P1(ByVal objNewValue As Class1)

Set m_P1 = objNewValue	
    PropertyChanged "P1"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
	'ここで実行時エラー '713'が発生！！
	Set m_P1 = PropBag.ReadProperty("P1", New Class1)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("P1", m_P1, New Class1)
End Sub

---------------- 以上、ソースコード ----------------

エラーのメッセージは、
「次のクラスは登録されていません。次のCLSIDオブジェクトを参照してください。
:{33238196-F3BE-42F7-A8A6-FDE657646E7D}」
とダイアログが表示されます。

尚、Class1のプロパティは、下記の通りです。
DataBindingBehavior = 0 - vbNone
DataSourceBehavior = 0 - vbNone
Instancing = 5 - MultiUse
Persistable = 1 - Persistable

宜しく御願い致します。

←解決時は質問者本人がここをチェックしてください。

戻る