VB.Net - Ändern Sie Schriftarten, Farben und Stil der Steuerelemente

Intro

Wie üblich reagiert VB.Net seltsam, wenn die Schriftart eines Steuerelements geändert wird, die Stile zurückgesetzt werden und neu definiert werden sollten.

So behandeln Sie dieses Problem:

Der Code

 Öffentliche Klasse Form1 Private Sub Form1_Load (ByVal-Absender als System.Object, ByVal und als System.EventArgs) Behandelt MyBase.Load pot et que ça sonne creux, c'est pas forcément le pot qui est vide.; -) (Confucius) "S = TextBox1.Font.Size For i = 8 To 24 Schritt 2 ComboBox1.Items.Add (i) Wenn i = S Dann L = ComboBox1.Items.Count - 1 Nächster Versuch ComboBox1.SelectedIndex = L Abfangen als Ausnahme ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 Beenden Versuchen Sie, 'Propriétés de la boite de dialog couleur' ​​BoiteCouleur.SolidColorOnly = True 'Couleurs unies' BoiteCouleur.AllowFullOpen = True 'Auswahl der Farben für jedes Font-Produkt.' BoiteCouleurs personnalisées 'BoiteCouleur.Color = Color.Red' Auswahl der Farben für jedes Font-Produkt. Familien CombPolice.Items.Add (FonteSys.Name) Wenn TextBox1.Font.Name = FonteSys.Name, dann L = CombPolice.Ite ms.Count - 1 Next Try CombPolice.SelectedIndex = L Catch ex als Ausnahme ComboBox1.SelectedIndex = 0 End Try End Sub Private Sub ComboBox1_SelectedIndexChanged (ByVal Absender As System.Object, ByVal e As System.EventArgs) Behandelt ComboBox1.SelectedI Font = TextBox1.Font Dim newFont As Font = New Font (oldFont.FontFamily, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () End Sub Private Sub CheckBox1_CheckedChanged_1 (ByVal Absender As System.Object, ByVal e As System. EventArgs) Behandelt CheckBox1.CheckedChanged, _ CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Autre syntaxe' Dim style As FontStyle = IIf (TextBox1.Font.Style und FontStyle.Bold, TextBox1.Font.Style X .Bold, TextBox1.Font.Style oder FontStyle.Bold) 'TextBox1.Font = Neue Schriftart (TextBox1.Font, style) End Sub Private Sub Button1_Click (ByVal Absender As System.Object, ByVal e As System.EventArgs) Behandelt Button1. Klicken Sie auf Wenn BoiteCouleur.ShowDialog () = Di alogResult.OK Then TextBox1.ForeColor = BoiteCouleur.Color End If 'Autre syntaxe' TextBox1.ForeColor = Color.FromArgb (& HFF0000) End Sub Private Sub Button2_Click (ByVal Absender As System.Object, ByVal e As System.EventArgs). Klicken Sie auf If BoiteCouleur.ShowDialog () = DialogResult.OK Then TextBox1.BackColor = BoiteCouleur.Color End If End Sub Private Sub CombPolice_SelectedIndexChanged (ByVal Absender As System.Object, ByVal e As System.EventArgs) Behandelt CombPolice.Sel. Benennen Sie CombPolice.Text dann TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) ChangeStyle () End If End Sub Sub ChangeStyle () Dim Style As FontStyle = FontStyle.Bold And CheckBox1.Checked Oder FontStyle.Italic und CheckBox2.Checked _ Oder FontStyle.Underline und CheckBox3.Checked Oder FontStyle.Strikeout und CheckBox4.Checked 'Pas nécessaire à chaque fois. 'TextBox1.Font = Neue System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = Neue Schriftart (TextBox1.Font, Stil) End Sub End Class 

Herunterladen

Laden Sie die Demo-Lösung herunter

Server 1: hier

Vorherige Artikel Nächster Artikel

Top-Tipps