VB6 ActiveX Image.pictureプロパティ

Question

VB6で画像プロパティでActiveX OCXを作成しようとしています。 pictureプロパティは、コントロール内のイメージのピクチャプロパティを設定および取得します。設計時にユーザーが画像を選択できるようにしたい。

アイデア？

おかげ

Answer 1

ジャストタイプIPictureDispのプロパティを定義します。

Public Property Get Picture() As IPictureDisp 
    Set Picture = UserControl.Picture 
End Property 

Public Property Set Picture(ByVal p As IPictureDisp) 
    Set UserControl.Picture = p 
    PropertyChanged "Picture" 
End Property 

は小道具袋から読み取り/に保存することを忘れないでください：

Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
    With PropBag 
    ... 
    Set Me.Picture = .ReadProperty("Picture", Nothing) 
    ... 
    End With 
End Sub 

Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
    With PropBag 
    ... 
    .WriteProperty "Picture", Me.Picture, Nothing 
    ... 
    End With 
End Sub