Программирование свойств - VB

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

Добавил свойство к своему Active X контролу. Но хочется, чтобы нужно было не вводить значение в свойство вручную, а выбирать из небольшого меню, как у стандартных свойств. Как это сделать? Вот свойство мое:
Public Property Get Color() As Long
Color = segments_color
End Property
 
Public Property Let Color(new_segments_color As Long)
segments_color = new_segments_color
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
segments_color = PropBag.ReadProperty("Color", 0)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Color", segments_color, 0
End Sub

Код к задаче: «Программирование свойств - VB»

textual
Public Property Get Color() As OLE_COLOR
Color = segments_color
End Property
 
Public Property Let Color(new_segments_color As OLE_COLOR)
segments_color = new_segments_color
End Property

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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


СОХРАНИТЬ ССЫЛКУ