VB6 ActiveX Image.picture свойство - PullRequest
Новая
       5

VB6 ActiveX Image.picture свойство

4 голосов
/ 23 марта 2012

Я пытаюсь создать ActiveX OCX в VB6 со свойством изображения. Свойство picture устанавливает и получает свойство picture для изображения в элементе управления. Я хочу, чтобы пользователь мог выбрать изображение во время разработки.

Есть идеи?

Спасибо

1 Ответ

6 голосов
/ 23 марта 2012

Просто определите свойство типа 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
...