[初中教育]第6章 表单设计与应用.ppt

“计算”按钮代码： n=thisform.optiongroup1.value a= thisform.text1.value b= thisform.text2.value do case case n=1 thisform.text3.value=a+b case n=2 thisform.text3.value=a-b case n=3 thisform.text3.value=a*b case n=4 thisform.text3.value=a/b endcase “关闭”按钮代码： Thisform.Release 例：设计一个如下图所示的设置文本格式的应用 程序。 设计窗口 运行窗口 编辑框、选项按钮组和复选框控件举例： 设置属性 对象 属性 属性值 Form1 Caption 设置文本格式 Label1 Caption 请输入文本 Label1 ForeColor 0,0,255 字体颜色（蓝） Optiongroup1 Buttoncount 4 Option1 Caption 宋体 Option2 Caption 黑体 Option3 Caption 隶书 Option4 Caption 华文行楷 Check1 Caption 加粗 Check2 Caption 斜体 Check3 Caption 下划线 Edit1 ScrollBars 2-垂直（默认） 说明 按钮数目 垂直滚动条 do case case this.value=1 Thisform.edit1.fontname=宋体 case this.value=2 Thisform.edit1.fontname=黑体 case this.value=3 Thisform.edit1.fontname=隶书 case this.value=4 Thisform.edit1.fontname=华文行楷 endcase Optiongroup1的Click事件: Check1的Click事件 If This.Value = 1 Thisform.Edit1.FontBold = .T. Else Thisform.Edit1.FontBold =. F. EndIf Check2的Click事件 If This.Value = 1 Thisform.Edit1.FontItalic = .T. Else Thisform.Edit1.FontItalic = .F. EndIf Check3的Click事件 If This.Value = 1 Thisform.Edit1.FontUnderline =.T. Else Thisform.Edit1.FontUnderline =.F. EndIf 例： 设计一个如下图所示的时钟应用程序，具体描述如下： 表单名和表单文件名均为timer，表单标题为“时钟”，表单 运行时自动显示系统的当前时间； 1) 显示时间的为标签控件label1（要求在表单中居中，标签文本对齐方式为居中）； 2) 单击暂停命令按钮（Command1）时，时钟停止； 3) 单击继续命令按钮（Command2）时，时钟继续显示系统的当前时间； 4) 单击退出命令按钮（Command3）时，关闭表单。 提示：