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

‘字体设计Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click If CheckBox1.Checked = True Then strFontName = "隶书" Else strFontName = "宋体" End If Call FontSet() End Sub ‘斜体设计Private Sub CheckBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.Click If CheckBox2.Checked = True Then bFontBold = FontStyle.Italic Else bFontBold = FontStyle.Regular End If Call FontSet() End Sub