ActiveX Control - добавление параметра аля Picture - VB

Узнай цену своей работы

Формулировка задачи:

Как в АктивХ добавить параметр типа Picture как в объекте Image и Picture? Добавить ввод стринговых и прочих не сложно, цвет можно выбирать ссылаясь на OLE_COLOR а вот как сделать выбор как в вышеописаных компонентах и научить его поддерживать не только загрузку с харда (храня стринговый паремтр пути к файлу) но и иметь возможность ссылаться в ListBox и файл-ресурс? Это вот сильно урезаный и упрощенный кусок кода дающий возможность выбирать цвет фона например (есть еще код для сохранения и загрузки значения параметра но это не суть важно):

Решение задачи: «ActiveX Control - добавление параметра аля Picture»

textual
Листинг программы
Private m_Pict As Picture
 
Public Property Get Pict() As Picture
  Set Pict = m_Pict
End Property
 
Public Property Set Pict(New_Pict As Picture)
  Set m_Pict = New_Pict
  PropertyChanged "Pict"
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Set m_Pict = PropBag.ReadProperty("Pict", Nothing)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  Call PropBag.WriteProperty("Pict", m_Pict, Nothing)
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.2 из 5