l第12章 面向对象程序设计.pptVIP

例：用选项按钮组与复选框实现文本框字体和字型的改变。 OptionGroup1的Click事件代码： N = This.Value DO CASE CASE N=1 　　 ThisForm.Text1.FontName = 宋体 CASE N=2 　　 ThisForm.Text1.FontName=楷体_GB2312 CASE N=3 　　 ThisForm.Text1.FontName = 黑体 CASE N=4 　　 ThisForm.Text1.FontName = 隶书 ENDCASE Check1的Click事件代码： This.Value=.T.　　　　 Value可为 1 或.T. IF This.Value=.T. 　　 ThisForm.Text1.FontBold =.F. 　　 ThisForm.Text1.FontItalic =.F. 　　 ThisForm.Text1.FontUnderLine =.F. 　　 ThisForm.Check2.Value=.F. 　　 ThisForm.Check3.Value=.F. 　　 ThisForm.Check4.Value=.F. ENDIF Check2的Click事件代码： ThisForm.Text1.FontBold = This.Value ThisForm.Check1.Value=