高级控件设置字体和颜色.doc

《高级控件设置字体和颜色.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、PrivateSubCommand1_Click()CDg1.CancelError=TrueOnErrorGoToErrCDg1.flags=cdlcfbothOrcdlcfeffectsCDg1.ShowFontText1.Font=CDg1.FontBoldText1.FontItalic=CDg1.FontItalicText1.FontSize=CDg1.FontSizeText1.FontStrikethru=CDg1.FontStrikethruText1.FontUnderline=CDg1.FontUnderlineText1.ForeColor=CDg1.C

2、olorErr:ExitSubEndSubPrivateSubCommand2_Click()CDg1.CancelError=TrueOnErrorGoToErrCDg1.ShowColorText1.BackColor=CDg1.ColorErr:ExitSubEndSubPrivateSubForm_Load()EndSub