Как сделать свойтвом контрола шрифт - VB

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

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

Приветствую, сограждане! Пишу контрол. Одно из свойств его должно быть шрифтом. Пишу так:
и соответственно
При использовании данного свойства открывается окошко с установками шрифтов. Однако при попытке применить выбранный шрифт выскакивает сообщение "Invalid property value". И вот не пойму, что не так. Или кто подскажет как сделать корректнее?

Решение задачи: «Как сделать свойтвом контрола шрифт»

textual
Листинг программы
Dim Fnt As New StdFont
Public Property Get Font() As Font
    Set Font = Fnt
End Property
Public Property Set Font(ByVal New_Font As Font)
    Set Fnt = New_Font
End Property

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


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

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

10   голосов , оценка 3.7 из 5