VB.Net - зміна шрифтів, кольорів та стилю керування

Вступ

Як звичайно VB.Net має дивні реакції, коли змінюється шрифт елемента керування, стилі скидаються і їх потрібно перевизначити.

Щоб вирішити цю проблему:

Код

 Загальнодоступний клас Form1 Приватний Sub Form1_Load (відправник ByVal як System.Object, ByVal e як System.EventArgs) Обробляє MyBase.Load Дим i як байт, L, S як ціле Dim Dim FonteSys як шрифтFamily TextBox1.Text = "Si tu cognes à un pot i que ça sonne creux, c'est pas forcément le pot quі est vide.; -) (Конфуцій) "S = TextBox1.Font.Size Для i = 8 до 24 Крок 2 ComboBox1.Items.Add (i) Якщо i = S Тоді L = ComboBox1.Items.Count - 1 Далі Спробуйте ComboBox1.SelectedIndex = L Catch ex As Виняток ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 Кінець Try 'Propriétés de la boite de dialog couleur' ​​BoiteCouleur.SolidColorOnly = True 'Couleurs unies' BoiteCouleur. Сім'ї CombPolice.Items.Add (FonteSys.Name) Якщо TextBox1.Font.Name = FonteSys.Name Тоді L = CombPolice.Ite ms.Count - 1 Далі Спроба CombPolice.SelectedIndex = L Виконати Ex As Виняток ComboBox1.SelectedIndex = 0 Завершити Повторити Закрити Суб Приватний Sub ComboBox1_SelectedIndexChanged (Відправник ByVal як System.Object, ByVal e Як System.EventArgs) Ручки ComboBox1.SelectedIndexChanged Dim oldFont As Шрифт = TextBox1.Font Dim newFont Як шрифт = Новий шрифт (oldFont.FontFamily, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () Закінчити Суб приватний Sub CheckBox1_CheckedChanged_1 (Відправник ByVal як System.Object, ByVal e As System. EventArgs) Обробляє CheckBox1.CheckedChanged, _ CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Синтаксис Autre' Стиль Dim Як FontStyle = IIf (TextBox1.Font.Style та FontStyleBold, TextBox1.Font.Style Xor FontStyle .Bold, TextBox1.Font.Style Або FontStyle.Bold) 'TextBox1.Font = Новий шрифт (TextBox1.Font, стиль) Закінчити суб-приватний Sub Button1_Click (відправник ByVal як System.Object, ByVal e як System.EventArgs) Обробляє Button1. Натисніть If BoiteCouleur.ShowDialog () = Di alogResult.OK Тоді TextBox1.ForeColor = BoiteCouleur.Color End Якщо 'Autre syntaxe' TextBox1.ForeColor = Color.FromArgb (& HFF0000) Закінчити підпорядковувати Sub Button2_Click (відправник ByVal як System.Object, ByVal e як System.EventArgs) Обробляє Button2. Натисніть If BoiteCouleur.ShowDialog () = DialogResult.OK Потім TextBox1.BackColor = BoiteCouleur.Color Кінець Якщо кінець Sub приватний Sub CombPolice_SelectedIndexChanged (ByVal відправника як System.Object, ByVal e як System.EventArgs) Ручки CombPolice.SelectedIndexChanged Якщо TextBox1.Font. Назва CombPolice.Text Потім TextBox1.Font = Нова System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) ChangeStyle () End Якщо кінець Sub Sub ChangeStyle () Стиль Dim Як FontStyle = FontStyle.Bold і CheckBox1.Checked Або FontStyle.Italic І CheckBox2.Checked _ Або FontStyle.Underline І CheckBox3.Checked Або FontStyle.Strikeout І _ CheckBox4.Checked 'Перейдіть на сторінку chaque fois. TextBox1.Font = Нова System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = Новий шрифт (TextBox1.Font, стиль) End End End Class 

Завантажити

Завантажте демо-рішення

Сервер 1: тут

Попередня Стаття Наступна Стаття

Кращі Поради