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

Объекты vb.net. Объект FontDialog

 
 

Объект FontDialog нужен для открытия диалога установки шрифта:

Сейчас мы сделаем программу, в которой будет показываться диалог выбора шрифта, и если шрифт изменен, то меняем его у кнопки. На форме размести кнопку, и FontDialog(Name="FD1"). Код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FD1.Color = System.Drawing.Color.Red ' Устанавливаем начальные значения цвета 
FD1.ShowColor = True ' Показываем в диалоге Font раздел выбора цвета 

FD1.MinSize = 6 ' Устанавливаем минимальные значения шрифта 
FD1.MaxSize = 20 ' Устанавливаем максимальные значения шрифта 

FD1.Font = New System.Drawing.Font("Arial", 11, FontStyle.Bold) ' Устанавливаем начальные значения, которые будут в диалоге выбора шрифтов 

If FD1.ShowDialog() = DialogResult.OK Then ' Если шрифт выбран, то: 
Button1.Font = FD1.Font ' Меняем у кнопки шрифт на выбранный 
Button1.ForeColor = FD1.Color ' Меняем у кнопки увет на выбранный 
End If
End Sub 

Исходник


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

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




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