VB.Net - Modificați fonturile, culorile și stilul comenzilor

introducere

Ca de obicei, VB.Net are reacții ciudate atunci când fontul unui control este schimbat, stilurile sunt reinițializate și trebuie redefinite.

Pentru a rezolva această problemă:

Codul

 Public Class Form1 Private Sub Form1_Load (ByVal expeditor ca System.Object, ByVal e ca System.EventArgs) Manipulează MyBase.Load Dim i ca octet, L, S ca intreg Dim FonteSys ca FontFamily TextBox1.Text = "Si tu te cognes à un (Confucius) "S = TextBox1.Font.Size Pentru i = 8 La 24 Pasul 2 ComboBox1.Items.Add (i) Dacă i = S Apoi L = ComboBox1.Items.Count - 1 Încercați ComboBox1.SelectedIndex = L Catch ex Ca Excepție ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 Sfârșit Încercați "Proprietăți de la boite de dialog couleur" BoiteCouleur.SolidColorOnly = Adevărat 'Couleurs unies' BoiteCouleur.AllowFullOpen = Adevărat 'Affiche le bouton des couleurs personnalisées' BoiteCouleur.FullOpen = Adevărat 'Affiche les couleurs personnalisées' BoiteCouleur.Color = Culoare.Red 'Preselecție de la couleur Pentru fiecare FonteSys În System.Drawing.FontFamily. Familii CombPolice.Items.Add (FonteSys.Name) Dacă TextBox1.Font.Name = FonteSys.Name Apoi L = CombPolice.Ite ms.Count - 1 Încercați CombPolice.SelectedIndex = L Catch ex Ca Excepție ComboBox1.SelectedIndex = 0 Sfârșitul Încercați End Sub Sub Private Sub ComboBox1_SelectedIndexChanged (ByVal expeditor ca System.Object, ByVal e ca System.EventArgs) Manuale ComboBox1.SelectedIndexChanged Dim oldFont As Font = TextBox1.Font Dim newFont As Font = font nou (oldFont.FontFamily, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () End Sub Private Sub CheckBox1_CheckedChanged_1 (ByVal expeditor ca System.Object, ByVal e As System. EventArgs) Mânere CheckBox1.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Sintaxa Autre' Dim style As FontStyle = IIf (TextBox1.Font.Style și FontStyle.Bold, TextBox1.Font.Style Xor FontStyle .Bold, TextBox1.Font.Style sau FontStyle.Bold) 'TextBox1.Font = Font nou (TextBox1.Font, stil) End Sub Privat Sub Button1_Click (ByVal expeditor ca System.Object, ByVal e ca System.EventArgs) Manere Button1. Faceți clic pe Dacă BoiteCouleur.ShowDialog () = Di alogResult.OK Apoi TextBox1.ForeColor = Sfârșitul BoiteCouleur.Color Dacă "Autre syntaxe" TextBox1.ForeColor = Color.FromArgb (& HFF0000) End Sub Privat Sub Button2_Click (ByVal expeditor ca System.Object, ByVal e ca System.EventArgs) Manere Button2. Faceți clic pe Dacă BoiteCouleur.ShowDialog () = DialogResult.OK Apoi TextBox1.BackColor = BoiteCouleur.Color Sfârșit Dacă End Sub Private Sub CombPolice_SelectedIndexChanged (ByVal expeditor ca System.Object, ByVal e ca System.EventArgs) Manipulează CombPolice.SelectedIndexChanged Dacă TextBox1.Font. Numele CombPolice.Text Apoi TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) ChangeStyle () Sfârșit Dacă Sfârșit Sub Sub Submeniul ChangeStyle () Dim as FontStyle = FontStyle.Bold și CheckBox1.Checked Sau FontStyle.Italic și CheckBox2.Checked _ Sau FontStyle.Underline și CheckBox3.Checked sau FontStyle.Strikeout și _ CheckBox4.Checked 'Pas nécessaire à chaque fois. 'TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = Font nou (TextBox1.Font, stil) End Sub End Class