Property как рисунок

 
0
 
Visual Basic
ava
Dumm | 10.04.2013, 10:25
Добрый день. Пишу контрол. Одно из свойств его должно быть рисунком по аналогии со свойством "Picture" объекта "Image". То есть при его использовании должно появляться окно с возможностью загрузки файла-рисунка. В связи с этим вопросы: какой тип указать при описании "Property Get"?  Что вернет "Property Let"?
Comments (5)
ava
Catstail | 11.04.2013, 11:36 #
Мне кажется тип должен быть stdPictue, а вместо Property Let нужно использовать Property Set
ava
Dumm | 11.04.2013, 15:33 #
Действительно! Пробовал тип StdPicture, но VB ругался. Не мог понять в чем дело. А и правда, надо использовать "Property Set"  вместо "Property Let". Спасибо за подсказку. А вот пока ковырялся с этой проблемой, возникла и другая, аналогичная. Пытаюсь тоже самое сделать со шрифтом:


Property Get Test() as StdFont
.....
End Property


и


Property Set Test(ByVal NewValue as StdFont) 
.....
End Property


Открывается окно выбора шрифта, но при попытке применить шрифт выдает сообщение "Invalid property value". Чувствую, ошибка глупая, но ухватить ее никак не могу. Что это может быть?
ava
SkCom | 11.04.2013, 18:24 #
Все очень просто:

VB6:
    Private m_Font as Font

    Public Property Get Font() As Font
        Return m_Font
    End Property

    Public Property Let Font(ByVal value As Font)
        m_Font = value
    End Property

VB-Net:
    Private m_Font As Font

    Public Property Font() As Font
        Get
        Return Me.m_Font
        End Get
        Set (ByVal value As Font)
        Me.m_Font = value
        End Set
    End Property
ava
Dumm | 16.04.2013, 23:08 #
Ну хорошо, хрен бы с ней с ошибкой. Может кто подскажет как вообще назначить свойством контрола шрифт?
ava
Dumm | 20.04.2013, 20:40 #
Так, все получилось. Вопрос снят. Всем спасибо.
Please register or login to write.
Firm of day
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Contributors
  SkCom   Catstail   Dumm
advanced
Submit