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

[Fatew]

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]

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

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