第九菜单工具栏和类设计.ppt

VFP 基类表 类设计的其它问题 类的修改、复制与删除 为类添加对象 为类添加新属性 为类添加新方法程序 为类指定外观 覆盖默认属性设置 调用父类方法程序代码 防止基类代码被执行 新 类 的 注 册 执行菜单命令工具→选项。 在“选项”对话框的“控件”选项卡中选择“可视类库”选项并单击添加按钮。 在“打开”对话框中输入要注册的新类所在的类库名(例如，MYCLASS)，单击打开按钮。 如要每次运行VFP时自动成为表单工具栏中的可用类库，单击设置为默认值按钮。 单击确定按钮完成新类的注册。 “选项”对话框中的“控件”选项卡 添加类库的“打开”对话框 新 类 的 使 用 表单控件工具栏中添加新类图示 类 的 修 改 类 的 复 制 类复制的示意图 类 的 删 除 为类添加对象 为类添加新属性 “新建属性”对话框 “可视性”的含义 为类添加新方法程序 “新方法程序”对话框 为类指定外观 “类信息”对话框的“工具栏图标”框 “类信息”对话框的“容器图标”框 复盖默认属性设置 调用父类方法程序代码(1) 调用父类方法程序代码(2) 防止基类代码被执行(1) 防止基类代码被执行(2) 定义工具栏类 用编程方式定义工具栏类 为表单集添加工具栏类 例题9.3.2程序运行结果 类设计综合举例 例题9.2.1的表单子类及事件代码 例题9.2.2的表格子类GRIDA的使用 例题9.2.2中新增表格子类的属性和方法程序 表单运行结果 例题9.3.1的自定义工具栏图示 fontbold caption caption caption 属性名 表9.3.1 cmdfontB label2 label1 控件名 .T. B 字号 属性值 字体 .T. .T. U .T. .T. I 属性值 属性名 fontunderline fontbold caption fontItalic fontbold caption cmdfontU cmdfontI 控件名 9 value 5.00 spinnerlowvalue 72.00 spinnerhighvalue 5 keyboardlowvalue 72 keyboardhighvalue spnfontsize (微调框) arrfont value 5-数组 rowsourcetype arrfont rowsource cbofontname (组合框) 属性值 属性名 控件名 组合框cbofontname的InteravtiveChage事件代码： _screen.activeform.activecontrol.fontname=this.value 微调框spnfontsize的InteravtiveChage事件代码： _screen.activeform.activecontrol.fontsize=this.value 命令按钮cmdfontB的Click事件代码： this.fontbold=!this.fontbold _screen.activeform.activecontrol.fontbold; =this.fontbold 命令按钮cmdfontI的Click事件代码： this.fontItalic=!this.fontItalic _screen.activeform.activecontrol.fontItalic; =this.fontItalic 命令按钮cmdfontU的Click事件代码： this.fontunderline=!this.fontunderline _screen.activeform.activecontrol.fontunderline; =this.fontunderline public arrfont[1] =afont(arrfont) 工具栏tbrfont 的Init事件代码 例题9.3.1的事件代码 SET TALK OFF PUBLIC TBD TBD=CREATEOBJ(”MTL”) TBD.SHOW DEFINE CLASS MTL AS TOOLBAR ADD OBJECT btBOLD AS CommandButton ADD OBJECT Sep1 AS Separator ADD OBJECT btTa AS CommandButton btBOLD.HEIGTH=20 btBOLD.WIDTH=50 btBOLD.CAPTION=”粗体” btTa.HEIGTH=20 btTa.WIDTH=50 btTa.CAPTION=”斜体” btTa.FontBold=.F. LFET=0 TOP=1