VB.Net - Tukar fon, warna dan gaya kawalan

Pengenalan

Seperti biasa VB.Net mempunyai tindak balas pelik apabila fon kawalan berubah, gaya ditetapkan semula dan mereka harus ditakrifkan semula.

Untuk mengatasi masalah ini:

Kod ini

 Kelas Awam Form1 Private Sub Form1_Load (Pengirim ByVal Sebagai System.Object, ByVal e As System.EventArgs) Mengendalikan MyBase.Load Dim i As Byte, L, S Sebagai Integer Dim FonteSys Sebagai FontFamily TextBox1.Text = "Si tu te cognes à un "Saya tahu bahawa saya tidak boleh melakukan apa-apa." (Confucius) "S = TextBox1.Font.Size Untuk i = 8 Ke 24 Langkah 2 ComboBox1.Items.Add (i) Jika saya = S Kemudian L = ComboBox1.Items.Count - 1 Selanjutnya Cuba ComboBox1.SelectedIndex = L Catch ex Sebagai Excection ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 Akhir Cuba 'Propriétés de la boite de dialogue couleur' BoiteCouleur.SolidColorOnly = Benar 'Couleurs unies' BoiteCouleur.AllowFullOpen = Benar 'Affiche le bouton des couleurs personnalisées' BoiteCouleur.FullOpen = True 'Affiche les couleurs personnalisées' BoiteCouleur.Color = Color.Red 'Préselection de la couleur For Each FonteSys In System.Drawing.FontFamily. Keluarga CombPolice.Items.Add (FonteSys.Name) Jika TextBox1.Font.Name = FonteSys.Name Kemudian L = CombPolice.Ite ms.Count - 1 Selanjutnya Cuba CombPolice.SelectedIndex = L Catch ex Sebagai Excection ComboBox1.SelectedIndex = 0 End Try End Sub Sub Private Sub ComboBox1_SelectedIndexChanged (Pengirim ByVal Sebagai System.Object, ByVal e As System.EventArgs) Mengendalikan ComboBox1.SelectedIndexChanged Dim oldFont As Font = TextBox1Font Dim newFont As Font = New Font (oldFont.FontFamily, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () End Sub Private Sub CheckBox1_CheckedChanged_1 (ByVal sender As System.Object, ByVal e As System. EventArgs) Mengendalikan CheckBox1.CheckedChanged, _ Checkbox2.CheckedChanged, Checkbox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Synrexta' gaya Dim Dimainkan FontStyle = IIf (TextBox1.Font.Style And FontStyle.Bold, TextBox1.Font.Style Xor FontStyle Bold, TextBox1.Font.Style Or FontStyle.Bold) 'TextBox1.Font = Font Baru (TextBox1.Font, gaya) Sub Akhir Sub Sub Sub Button1_Click (Pengirim ByVal Sebagai System.Object, ByVal e As System.EventArgs) Mengendalikan Button1. Klik Jika BoiteCouleur.ShowDialog () = Di alogResult.OK Kemudian TextBox1.ForeColor = BoiteCouleur.Color End Jika 'Autre syntaxe' TextBox1.ForeColor = Color.FromArgb (& HFF0000) Sub Sub Akhir Sub Button2_Click (Pengirim ByVal Sebagai System.Object, ByVal e As System.EventArgs) Mengendalikan Button2. Klik Jika BoiteCouleur.ShowDialog () = DialogResult.OK Kemudian TextBox1.BackColor = BoiteCouleur.Color End Jika Akhir Sub Sub Private Sub CombPolice_SelectedIndexChanged (Pengirim ByVal Sebagai System.Object, ByVal dan Sebagai System.EventArgs) Mengendalikan CombPolice.SelectedIndexChanged Jika TextBox1.Font. Name CombPolice.Text Kemudian TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) ChangeStyle () End If End Sub Sub ChangeStyle () Dim style Sebagai FontStyle = FontStyle.Bold And CheckBox1.Checked Atau FontStyle.Italic And CheckBox2.Checked _ Or FontStyle.Underline And CheckBox3.Checked Or FontStyle.Strikeout And _ CheckBox4.Checked 'Pas nécessaire à chaque fois. 'TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = Font Baru (TextBox1.Font, style) End Sub End Class