Программирование
Веб программирование

Компоненты vb. CommonDialog

 
 

Метод ShowFont нужен для вызова стандартного окна выбора шрифтов. Сейчас сделаем программу, в которой при нажатии на кнопку появится это окно. На форму кинь CommonDialog(Name = CD1), и кнопку.

Вот код:

Private Sub Form_Load()
CD1.FontName = "Arial" ' Устанавливаем начальные значения для CD1
End Sub

Private Sub Command1_Click()
'Устанавливаем тип отображения диалогов окна Font
CD1.Flags = cdlCFBoth Or cdlCFEffects Or cdlCFLimitSize Or cdlCFTTOnly Or dlCFForceFontExist
'Устанавливаем значения минимального и максимального размера шрифта(они будут отображаться в поле Размер)
CD1.Min = 8 ' Минимальный размер шрифта
CD1.Max = 22 ' Максимальный размер шрифта
CD1.ShowFont ' Вызываем окно выбора шрифтов
'Присваиваем выбранные свойства(к примеру текстовому полю)
Text1.FontName = CD1.FontName ' Имя шрифта в текстовом поле будет равно выбранному
Text1.FontBold = CD1.FontBold ' Если юзер ставить в окне выбора шрифтов Жирный, то в текстовом поле будет тоже жирный шрифт
Text1.FontItalic = CD1.FontItalic ' Если юзер ставить в окне выбора шрифтов Курсив, то в текстовом поле будет тоже Курсивный шрифт
Text1.FontSize = CD1.FontSize ' Размер шрифта
Text1.FontStrikethru = CD1.FontStrikethru ' Если юзер ставит галку на зачеркнутый, то в текстовом поле будет тоже зачеркнутый текст
Text1.FontUnderline = CD1.FontUnderline ' Если юзер ставит галку на подчеркнутый, то в текстовом поле будет тоже подчеркнутый текст 
Text1.ForeColor = CD1.Color ' Устанавливаем выбранный цвет шрифта 
End Sub

Исходник


Есть вопросы? Спроси на нашем форуме!!
kgjefd;gkej [29.10.2012 22:50]

А Text1 откуда само должно взяться?

Samou4120 [08.03.2013 19:56]

Уже до 61 ого урока дошли
давно пора такие мелочи самим предусматривать

Geller10 [25.09.2014 23:45]

Не обижайся, Ваше преосвященство, но твои мордераторы меня
реально достали. Придется их проучить...



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.