Visual FoxPro 6.0 菜单设计.ppt

Visual FoxPro 6.0程序设计 9.2.2 在表单集中添加自定义工具栏 在定义一个工具栏类之后，便可以用这个类创建一个工具栏。可以用“表单设计器”或者用编写代码的方法，将工具栏与表单对应起来。 1、在“表单设计器”中协调工具栏和表单 可以在表单集中添加工具栏，让工具栏与表单集中的各个表单一起打开。但不能直接在某个表单中添加工具栏。使用“表单设计器”在表单集中添加工具栏的步骤如下： （1）先注册并选定包含工具栏类的类库。 （2）打开要使用上述工具栏类的表单集，再从“表单控件”工具栏选择“查看类”，然后从显示的列表中选择该工具栏类。 （3）从“表单控件”工具栏中选择工具栏类。 （4）在“表单设计器”中单击，添加此工具栏，然后将工具栏拖动到适当的位置，VFP将在表单集上添加工具栏，如果表单集尚未打开，VFP将提示用户打开一个。 （5）为工具栏及其按钮定义操作。 2、使用代码协调工具栏和表单 除了使用“表单设计器”外，还可以使用代码在表单集中添加工具栏。如果要使用代码在表单集中添加工具栏，可以在表单集的Init事件中，使用SET CLASSLB命令，指定包含工具栏类的类库，然后在表单集中由此类创建工具栏。 例如，要添加并显示基于_base类库中_toolbar类的工具栏mytoolbar，可以在表单集的Init事件中添加下列代码： SET CLASSLIB TO LIBS\_BASE THIS.ADDOBJECT(MYTOOLBAR,_TOOLBAR) THIS.MYTOOLBAR.SHOW 如果使用已经定义了的一个工具栏，如在第五章中定义的NEWTOOLBAR工具栏，则可以在表单集的Init事件添加如下代码： SET CLASSLIB TO LIBS\NEWTOOLBAR ADDITIVE THIS.ADDOBJECT(MYTOOLBAR,NEWTOOLBAR) THIS.MYTOOLBAR.SHOW 注意：如果工具栏类没有定义工具栏及其按钮要执行的操作，那么必须在与工具栏及其按钮相关的事件过程中定义操作。 3、创建自定义工具栏示例 可以在代码中定义工具栏的各个要素。例如，在第五章中定义的NEWTOOLBAR工具栏没有指定工具栏及其按钮等要执行的操作，现以该工具栏添加到表单集为例，说明其方法。先在表单集的Init事件中添加下列代码，当加载表单集时，VFP将创建并显示代码中定义的工具栏，该工具栏如图： SET CLASSLIB TO LIBS\NEWTOOLBAR ADDITIVE THIS.ADDOBJECT(MYTOOLBAR,NEWTOOLBAR) THIS.MYTOOLBAR.SHOW 对NEWTOOLBAR工具栏中各控件的执行代码定义的步骤及代码如下： （1）选择“项目管理器”中的“类”选项卡。 （2）找到并选择以前定义的NEWTOOLBAR类。 （3）单击“项目管理器”的【修改】按钮。 （4）分控件进行代码设计。 ■对Combo1组合框的代码进行定义： ●选择Combo1控件，在“属性”中选择“其它”选项卡，将Enabled属性设为“假” 。（在表单集中不设文章排版）。 ■对Combo2组合框的代码进行定义： ●选择Combo2控件，在“属性”中选择“数据”选项卡，将RowSourceType属性设为“1-值”，将RowSource属性设为 宋体,黑体,仿宋,楷体（还可以添加其它VFP能识别的字体名）。设置初始值，将Value属性设为=宋体。 ●选择“方法程序”选项卡，双击Click Event，在弹出的代码编辑框中写入如下代码： THISFORMSET.ActiveForm.ActiveControl.FontName=THIS.VALUE ■对Combo3组合框的代码进行定义： ●在上一步的方法程序编辑框中，从“对象”后的组合框中选择Combo3，然后在Click Event方法程序编辑框中输入如下的代码： THISFORMSET.ActiveForm.ActiveControl.FontSize=; VAL(ALLTRIM(THIS.VALUE)) ●在“属性”中的对象选择框中选择Combo3对象，再选择“数据”选项卡，将RowSourceType属性设为“1-值”，将RowSource属性设为8,9,10,11,12,14,16,18,20,22,24,26,28, 36,48,72。设置初始值，将Value属性设为=9。 ■对Command1命令按钮的代码进行定义： 在上一步的方法程序编辑框中，从“对象”后的组合框中选择Command1对象，然后在Click Event方