‘字体大小设计-第六讲控件应用

‘字体大小设计Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.Click If CheckBox3.Checked = True Then intFontSize = 25 Else intFontSize = 9 End If Call FontSet() End Sub ‘斜体颜色设计Private Sub CheckBox4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox4.Click If CheckBox4.Checked = True Then TextBox1.ForeColor = Color.Blue Else TextBox1.ForeColor = Color.Black End If Call FontSet() End Sub