Кто может объяснить,как загрузить шрифты в текстовый редактор?

  • Автор темы Fatew
  • Дата начала
Статус
Закрыто для дальнейших ответов.
F

Fatew

Гость
#1
Private Sub font_Click()
CommonDialog1.ShowFont
Text1.FontSize = CommonDialog1.FontSize
Text1.FontName = CommonDialog1.FontName
Text1.FontBold = CommonDialog1.FontBold
Text1.FontArial = CommonDialog1.FontArial
End Sub
почему-то выдает ошибку,что может быть неправильно?
 

alex77755

Well-Known Member
15.02.2009
128
0
#2
Попробуй набрать CommonDialog1 и поставить точку. Есть ли в списке FontArial ?
Лично у меня нету

[codebox]With CommonDialog1
.CancelError = True
.Flags = cdlCFBoth Or cdlCFEffects Or cdlCFLimitSize Or cdlCFTTOnly Or cdlCFForceFontExist
.Min = 8
.Max = 22
.Action = 4
End With


Text1.FontSize = CommonDialog1.FontSize
Text1.FontName = CommonDialog1.FontName
Text1.FontBold = CommonDialog1.FontBold[/codebox]
 
J

Jumpy

Гость
#3
у элемента Text - нет свойства "FontArial", за шрифт отвечает свойство FontName
Text1.FontName = "Comic Sans MS"
ну или
Text1.FontName = CommonDialog1.FontSize
 
Статус
Закрыто для дальнейших ответов.