VB.Net - Изменить шрифты, цвета и стиль элементов управления

вступление

Как обычно, в VB.Net возникают странные реакции, когда шрифт элемента управления изменяется, стили сбрасываются и их следует переопределять.

Чтобы решить эту проблему:

Код

 Открытый класс Form1 Private Sub Form1_Load (ByVal отправитель как System.Object, ByVal e как System.EventArgs) Обрабатывает MyBase.Load Dim i как байт, L, S как целое число Dim FonteSys как FontFamily TextBox1.Text = "Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot quistst vide.; -) (Конфуций) "S = TextBox1.Font.Size для i = 8–24 Шаг 2 ComboBox1.Items.Add (i) Если i = S Тогда L = ComboBox1.Items.Count - 1 Далее Попробуйте ComboBox1.SelectedIndex = L Поймать как исключение ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 Конец Попробуйте 'Собственные данные диалога' BoiteCouleur.SolidColorO 'Couleurs unies' BoiteCouleur.AllowFullOpen = True 'Действующие правила' BoiteCouleur.FullOpen = True 'Affiche les couleurs personnalisées' BoiteCouleur.Color = Color.Red 'Предварительная выборка для всех. Семейства CombPolice.Items.Add (FonteSys.Name) If TextBox1.Font.Name = FonteSys.Name Then L = CombPolice.Ite ms.Count - 1 Далее Попробовать CombPolice.SelectedIndex = L Поймать ex как исключение ComboBox1.SelectedIndex = 0 Конец Попробовать Конец Sub Sub Private Sub ComboBox1_SelectedIndexChanged (отправитель ByVal как System.Object, ByVal e как System.EventArgs) обрабатывает старый ComboBoxInShind. Font = TextBox1.Font Dim newFont As Font = Новый шрифт (oldFont.FontFamily, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () Конец Sub Private Sub CheckBox1_CheckedChanged_1 (отправитель ByVal как System.Object, система ByVal e As. EventArgs) Обрабатывает CheckBox1.CheckedChanged, _ CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Autre syntaxe' Дим стиль в виде FontStyle = IIf (TextBox1.Font.Style And FontSox.FontStyle.FortStyleBold .Bold, TextBox1.Font.Style Or FontStyle.Bold) 'TextBox1.Font = New Font (TextBox1.Font, style) End Sub Private Sub Button1_Click (отправитель ByVal как System.Object, ByVal e как System.EventArgs) Обрабатывает Button1. Нажмите Если BoiteCouleur.ShowDialog () = Di alogResult.OK Then TextBox1.ForeColor = BoiteCouleur.Color End If 'Синтаксис Autre' TextBox1.ForeColor = Color.FromArgb (& HFF0000) End Sub Private Sub Button2_Click (отправитель ByVal как System.Object, ByVal e как System.Event2gs.) Щелкните If BoiteCouleur.ShowDialog () = DialogResult.OK. Затем TextBox1.BackColor = BoiteCouleur.Color. Конец, если End Sub Частное Sub Sub CombPolice_SelectedIndexChanged (ByVal-отправитель как System.Object, ByVal e как System.EventArgs) Имя CombPolice.Text Then TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) ChangeStyle () Конец If End Sub Sub ChangeStyle () Dim стиль как FontStyle = FontStyle.Bold и CheckBox1.Checked Или FontStyle.Italic и CheckBox2.Checked _ или FontStyle.Underline и CheckBox3.Checked или FontStyle.Strikeout и _ CheckBox4.Checked 'Pas nécessaire à chaque fois. 'TextBox1.Font = Новый System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = Новый шрифт (TextBox1.Font, style) Конец Sub End End Class