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

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

Любые идеи?

Спасибо


image properties activex vb6
person gberg927    schedule 23.03.2012    source источник

Ответы (1)


arrow_upward
6
arrow_downward

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