VB.Net - Thay đổi phông chữ, màu sắc và kiểu điều khiển

Giới thiệu

Như VB.Net thông thường có các phản ứng lạ khi phông chữ của điều khiển bị thay đổi, các kiểu được đặt lại và chúng phải được xác định lại.

Để xử lý vấn đề này:

Mật mã

 Lớp công khai Form1 Private Sub Form1_Load (Người gửi ByVal là System.Object, ByVal e As System.EventArss) Xử lý MyBase.Load Dim i As Byte, L, S As Integer Dim FonteSys As FontF Family TextBox1.Text = "Si tu coes pot et que ça sonne creux, c'est pas forcément le pot qui est vide .; -) (Khổng Tử) "S = TextBox1.Font.Size For i = 8 đến 24 Bước 2 ComboBox1.Items.Add (i) = S Sau đó L = ComboBox1.Items.Count - 1 Tiếp theo Hãy thử ComboBox1.SelectedIndex = L Catch ex As Exception ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 End Hãy thử 'Propriétés de la boite de Dial couleur' BoiteCouleur.SolidColor 'Couleurs unies' BoiteCouleur.AllowFullOpen = True 'Affiche le bouton des couleurs personnalisées' BoiteCouleur.FullOpen = True 'Affiche les couleurs personnalisées' BoiteCouleur.Color = Color Các gia đình CombPolice.Items.Add (FonteSys.Name) Nếu TextBox1.Font.Name = FonteSys.Name Sau đó L = CombPolice.Ite ms.Count - 1 Tiếp theo Hãy thử CombPolice.SelectedIndex = L Catch ex As Exception ComboBox1.Selected Index = 0 End End End Sub Sub Sub Sub ComboBox1_SelectedIndexChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Font = TextBox1.Font Dim newFont As Font = New Font (oldFont.FontF Family, Val (ComboBox1.Text)) TextBox1.Font = newFont ChangeStyle () End Sub Sub Sub Sub CheckBox1_CheckedChanged_1 (ByVal sender As System. EventArss) Xử lý CheckBox1.CheckedChanged, _ CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged ChangeStyle () 'Autre cú pháp' Dim style As FontStyle = IIf (Văn bản .Bold, TextBox1.Font.Style Hoặc FontStyle.Bold) 'TextBox1.Font = New Font (TextBox1.Font, style) End Sub Sub Sub Sub Sub1 Nhấp vào Nếu BoiteCouleur.ShowDialog () = Di alogResult.OK Sau đó, TextBox1.ForeColor = BoiteCouleur.Color End If 'Autre cú pháp' TextBox1.ForeColor = Color.FromArgb (& HFF0000) End Sub Sub Sub Sub Nút2_Click (ByVal sender As System.Object, ByVal Nhấp vào If BoiteCouleur.ShowDialog () = DialogResult.OK Sau đó, TextBox1.BackColor = BoiteCouleur.Color End If End Sub Private Sub CombPolice_SelectedIndexChanged (ByVal sender As System.Object, ByVal e Đặt tên CombPolice.Text Sau đó là TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) ChangeStyle () End If End Sub Sub Sub ChangeStyle () Dim style As FontStyle = FontStyle.Bold And CheckBox Hoặc FontStyle.Italic và CheckBox2.Checked _ Hoặc FontStyle.Underline và CheckBox3.Checked Hoặc FontStyle.Strikeout Và _ CheckBox4.Checked 'Pas nécessaire à chaque fois. 'TextBox1.Font = New System.Drawing.Font (CombPolice.Text, CInt (ComboBox1.Text)) TextBox1.Font = New Font (TextBox1.Font, style) End Sub End Class