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

Fatew · 03.05.2009

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 · 03.05.2009

Попробуй набрать 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]

Jumpy · 04.05.2009

у элемента Text - нет свойства "FontArial", за шрифт отвечает свойство FontName
Text1.FontName = "Comic Sans MS"
ну или
Text1.FontName = CommonDialog1.FontSize