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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д