VB.Net - Αλλάξτε τις γραμματοσειρές, τα χρώματα και το στυλ των στοιχείων ελέγχου

Intro

Όπως συνήθως, το VB.Net έχει παράξενες αντιδράσεις όταν αλλάζει η γραμματοσειρά ενός στοιχείου ελέγχου, οι στυλ επαναφέρονται και πρέπει να επαναπροσδιοριστούν.

Για να αντιμετωπίσετε αυτό το ζήτημα:

Ο κώδικας

 Δημόσια Class Form1 Ιδιωτική Sub Form1_Load (ByVal αποστολέας ως System.Object, ByVal e ως System.EventArgs) Χειρισμοί MyBase.Load Dim i ως Byte, L, S ως ακέραιος Dim FonteSys Ως FontFamily TextBox1.Text = "Si tu te cognes à un (Confucius) "S = TextBox1.Font.Size Για i = 8 έως 24 Βήμα 2 ComboBox1.Items.Add (i) Αν i = S Στη συνέχεια L = ComboBox1.Items.Count - 1 Επόμενο Δοκιμάστε το ComboBox1.SelectedIndex = L Πιάστε ex ως Εξαίρεση ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 Τέλος Δοκιμάστε 'Οι ιδιότητες του boite de dialog couleur' BoiteCouleur.SolidColorOnly = Αληθινό 'Couleurs unies' BoiteCouleur.AllowFullOpen = Αληθινό 'Affiche le bouton des couleurs personnalisées' BoiteCouleur.FullOpen = Αληθινό 'Affiche les couleurs personnalisées' BoiteCouleur.Color = Έγχρωμη εκτύπωση 'Προαιρετική επιλογή για κάθε FonteSys In System.Drawing.FontFamily. Οικογένειες CombPolice.Items.Add (FonteSys.Name) Αν TextBox1.Font.Name = FonteSys.Name Στη συνέχεια L = CombPolice.Ite ms.Count - 1 Επόμενο Δοκιμάστε το CombPolice.SelectedIndex = L Πιάστε Ex ως Εξαίρεση ComboBox1.SelectedIndex = 0 Τέλος Δοκιμάστε End Sub Sub Private Sub ComboBox1_SelectedIndexChanged (ByVal αποστολέας ως System.Object, ByVal e Όπως System.EventArgs) Λαβές ComboBox1.SelectedIndexChanged Dim oldFont As Γραμματοσειρά = TextBox1.Font Dim νέαFont ως γραμματοσειρά = Νέα γραμματοσειρά (oldFont.FontFamily, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () End Sub Ιδιωτική Sub CheckBox1_CheckedChanged_1 (ByVal αποστολέας ως System.Object, ByVal e ως σύστημα. EventArgs) Χειρολαβές CheckBox1.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Autre syntaxe' Στυλ Dim Όπως και FontStyle = IIf (TextBox1.Font.Style και FontStyle.Bold, TextBox1.Font.Style Xor FontStyle .Bold, TextBox1.Font.Style ή FontStyle.Bold) 'TextBox1.Font = Νέα γραμματοσειρά (TextBox1.Font, στυλ) End Sub Private Sub Button1_Click (ByVal αποστολέας ως System.Object, ByVal e ως System.EventArgs) Χειριστήρια Button1. Κάντε κλικ στην επιλογή BoiteCouleur.ShowDialog () = Di alogResult.OK Στη συνέχεια TextBox1.ForeColor = Τέλος BoiteCouleur.Color Αν 'Autre syntaxe' TextBox1.ForeColor = Color.FromArgb (& HFF0000) End Sub Private Sub Button2_Click (ByVal αποστολέας ως System.Object, ByVal e As System.EventArgs) Λαβές Button2. Κάντε κλικ στην επιλογή BoiteCouleur.ShowDialog () = DialogResult.OK Στη συνέχεια TextBox1.BackColor = Τέλος BoiteCouleur.Color Αν τελειώσει το ιδιωτικό 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 'Πατήστε nαιcessaire à chaque fois. 'TextBox1.Font = Νέο System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = Νέα γραμματοσειρά (TextBox1.Font, στυλ) End Sub End Class