VB.Net - コントロールのフォント、色、スタイルを変更する

イントロ

いつものようにVB.Netはコントロールのフォントが変更された時に奇妙な反応をします、スタイルはリセットされ、そしてそれらは再定義されるべきです。

この問題を処理するには

コード

 パブリッククラスForm1プライベートSub Form1 Load（System.ObjectとしてByVal送信者、System.EventArgsとしてByVal e）Handle MyBase.Load DimとしてBy i、L、Sとして整数Dim FonteSysとしてFontFamily TextBox1.Text = "システムコントロールポットとクネソンクルー氏、ベストポーチを隠す; - ）（孔子） "S = TextBox1.Font.Size For i = 8 to 24 Step 2 ComboBox1.Items.Add（i）iの場合= SそれからL = ComboBox1.Items.Count - 1次に試してみてくださいComboBox1.SelectedIndex = L例外としてキャッチComboBox1.SelectedIndex = ComboBox1.Items.Count - 1終了 '独自プロパティの詳細を確認してください' BoiteCouleur.SolidColorOnly = True 'Couleursが一致します' BoiteCouleur.AllowFullOpen = True '効率的なボタンの設計者' boiteCouleur.FullOpen = True '効率的なcouleursのpersonnalisé' BoiteCouleur.Color =色。ファミリCombPolice.Items.Add（FonteSys.Name）TextBox1.Font.Name = FonteSys.Nameの場合L = CombPolice.Ite ms.Count - 1次に試してくださいCombPolice.SelectedIndex = L例外としてキャッチex ComboBox1.SelectedIndex = 0 End Try End SubプライベートSub ComboBox1_SelectedIndexChanged（ByVal送信者はSystem.Objectとして、ByVal eはSystem.EventArgsとして処理）ComboBox1.SelectedIndexChanged Dim oldFont Asとして処理Font = TextBox1.Font Dim newFont Asフォント= New Font（oldFont.FontFamily、Val（ComboBox1.Text））TextBox1.Font = newFont ChangeStyle（）End SubプライベートSub CheckBox1_CheckedChanged_1（ByVal差出人System.Object、ByVal eはシステムとして） EventStyle（EventArgs）CheckBox1.CheckedChanged、_ CheckBox2.CheckedChanged、CheckBox3.CheckedChanged、CheckBox4.CheckedChangedを処理します。ChangeStyle（） '自動構文' DimスタイルとしてFontStyle = IIf（TextBox1.Font.StyleおよびFontStyle.Bold、TextBox1.Font.yle.Style.Xont .Bold、TextBox1.Font.StyleまたはFontStyle.Bold） 'TextBox1.Font = New Font（TextBox1.Font、style）End SubプライベートSub Button1_Click（ByVal e System.Objectとして、ByVal eはSystem.EventArgsとして）Button1を処理します。 BoiteCouleur.ShowDialog（）= Diの場合はクリック alogResult.OK TextBox1.ForeColor = BoiteCouleur.Color End 'Autre syntaxe'の場合TextBox1.ForeColor = Color.FromArgb（＆HFF0000）End SubプライベートSub Button2_Click（ByVal送信者System.Objectとして、ByVal eはSystem.EventArgsとして）Button2を処理します。 BoiteCouleur.ShowDialog（）= DialogResult.OKそして、TextBox1.BackColor = BoiteCouleur.Color End SubプライベートSub CombPolice_SelectedIndexChanged（System.ObjectとしてのByVal送信側、System.EventArgsとしてのByVal送信側）をクリックします。CombPolice.SelectedIndexChanFont IfBox1を処理します。名前CombPolice.Text次にTextBox1.Font = New 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「パスフレーズ」または「チャットフォーム」 'TextBox1.Font = New System.Drawing.Font（CombPolice.Text、CInt（ComboBox1.Text））TextBox1.Font =新しいフォント（TextBox1.Font、style）End Sub Endクラス