Private Sub chkBold_Click()
txtfont.FontBold = chkBold
End Sub
Private Sub chkItalic_Click()
txtfont.FontItalic = chkItalic
End Sub
Private Sub chkUnderline_Click ()
txtfont.FontUnderline = chkUnderline
End Sub
Private Sub chkstrike_Click()
txtfont.FontStrikethru = chkstrike
End Sub
Private Sub cboName_Click()
txtfont. FontName = cboName.Text
End Sub
Private Sub cboSize_Click()
txtfont. FontSize = cboSize.Text
End Sub
Private Sub cmdBcolor_Click()
cdBcolor. ShowColor
txtfont. BackColor = cdBcolor. Color
End Sub
Private Sub cmdFcolor_click()
cdFcolor.ShowColor
txtfont. ForeColor = cdFcolor .Color
End Sub
No comments:
Post a Comment