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

Тема в разделе "Visual Basic", создана пользователем Fatew, 3 май 2009.

Статус темы:
Закрыта.
  1. Fatew

    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
    почему-то выдает ошибку,что может быть неправильно?
     
  2. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Попробуй набрать 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]
     
  3. Jumpy

    Jumpy Гость

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

Поделиться этой страницей