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