VB.Net - Zmena písma, farieb a štýlu ovládacích prvkov

intro

Ako obvykle VB.Net má podivné reakcie, keď sa zmení písmo ovládacieho prvku, štýly sa resetujú a mali by sa znovu definovať.

Na vyriešenie tohto problému:

Kód

 Public Class Form1 Private Sub Form1_Load (ByVal odosielateľ ako System.Object, ByVal e ako System.EventArgs) Spracováva MyBase.Load Dim i ako bajt, L, S ako Integer Dim FonteSys ako FontFamily TextBox1.Text = "Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide.; -) (Konfucius) "S = TextBox1.Font.Size Pre i = 8 až 24 Krok 2 ComboBox1.Items.Add (i) Ak i = S Potom L = ComboBox1.Items.Count - 1 Nasledujúci Skúste ComboBox1.SelectedIndex = L Úlovok ex ako výnimka ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 End Skúste 'Propriétés de la boite de dialog couleur' BoiteCouleur.SolidColorOnly = True 'Couleurs unies' BoiteCouleur.AllowFullOpen = Pravda 'Affiche le bouton des couleurs personnalisées' BoiteCouleur.FullOpen = Pravda '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '? Rodiny CombPolice.Items.Add (FonteSys.Name) Ak TextBox1.Font.Name = FonteSys.Name Potom L = CombPolice.Ite ms.Count - 1 Ďalej Skúste CombPolice.SelectedIndex = L Úlovok ex ako výnimka ComboBox1.SelectedIndex = 0 Koniec Skúste End Sub Súkromné Sub ComboBox1_SelectedIndexChanged (ByVal odosielateľa ako System.Object, ByVal e As System.EventArgs) Spracováva ComboBox1.VybranéIndexChanged Dim oldFont as Font = TextBox1.Font Dim newFont As Font = New Font (oldFont.FontFamily, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () Koniec Sub Private Sub CheckBox1_CheckedChanged_1 (ByVal odosielateľa ako System.Object, ByVal e As System. EventArgs) Spracováva CheckBox1.CheckedChanged, _ CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Autre syntaxe' Dim štýl ako FontStyle = IIf (TextBox1.Font.Style a FontStyle.Bold, TextBox1.Font.Style Xor FontStyle .Bold, TextBox1.Font.Style alebo FontStyle.Bold) 'TextBox1.Font = Nové písmo (TextBox1.Font, štýl) End Sub Private Sub Button1_Click (ByVal odosielateľa ako System.Object, ByVal e As System.EventArgs) Rukoväte Button1. Kliknite na položku Ak BoiteCouleur.ShowDialog () = Di alogResult.OK Potom TextBox1.ForeColor = BoiteCouleur.Color End Ak 'Autre syntaxe' TextBox1.ForeColor = Color.FromArgb (& HFF0000) Koniec Sub Private Sub Button2_Click (ByVal odosielateľa ako System.Object, ByVal e As System.EventArgs) Úchyty Button2. Kliknite na tlačidlo Ak BoiteCouleur.ShowDialog () = DialogResult.OK potom TextBox1.BackColor = BoiteCouleur.Color Koniec Ak je koniec Sub Private Sub CombPolice_SelectedIndexChanged (ByVal odosielateľa ako System.Object, ByVal e ako System.EventArgs) Spracováva CombPolice.SelectedIndexChanged Ak TextBox1.Font. Názov CombPolice.Text Potom TextBox1.Font = Nový System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) ChangeStyle () End If End Sub Sub ChangeStyle () Dim štýl ako FontStyle = FontStyle.Bold a CheckBox1.Checked Alebo FontStyle.Italic a CheckBox2.Checked _ alebo FontStyle.Underline a CheckBox3.Checked alebo FontStyle.Strikeout a _ CheckBox4.Checked 'Pas nécessaire à chaque fois. TextBox1.Font = Nový System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = Nové písmo (TextBox1.Font, štýl) End Sub End Class