如何设置顶层表单的工具条
我做的工具条,为何一直躲到顶层表单的后面,我参考了网上的一些设置,有几点不明白,忘大家赐教,不盛感激!
其中这几句话一直不明白什么意思:
This.TopToolBar=NewObject("MyToolBar","MyVcx")
This.TopToolBar.show()
This.TopToolBar.dock(0)
我的工具条名称是:工具条.vcx,请问该如体设置上面的代码。附:我在网络上找的代码:
VFP教程:如何制作自定义工具栏2006-12-30 04:421、建立的方法
(1)建立新类别。在命令窗口中执行CREATE CLASS命令后,在新建类窗口中键入类别及类别库的名称.
(2)加入按钮对象。当进入类设计器时会发现Toolbar的窗口很小,因此你要仔细的建立按钮,按下工
具栏中的按钮,再在类设计器中的工具栏内单击鼠标左键,以加入一个按钮到该自定义工具栏中,并修
改按钮的特性为:
Caption=''
Picture=Top1.bmp
如果发现图形不能完全显示,表示图形太大可以修改成小一点的图形或将按钮拉大,如果要在按钮之间
加入空格,请按下按钮,并在按钮之间按下。
(3)编写按钮的事件过程。就是对每个按钮编写各自的Click过程,这与表单中按钮的Click事件建立过
程一样。
(4)保存。按下Ctrl+W将该类别保存到LIBS.VCX类别库中。
2、类别的应用
此类别是一个Toolbar,而Toolbar事实上也是表格的一种,只是某些特性与表格不同,因此,如果显示
数据的画面也是一个表格,便不能将其加入到数据显示表格中,因此我们要建立一个更大的对象以便同
时加入表格和工具栏,此对象便是Formset。
(1)建立新表格。在命令窗口中执行:CREATE FORM
(2)建立表格集。请选定表单菜单中的创建表格集选项。
(3)建立工具栏对象。对于工具栏不是直接以视觉化方式加入到表格集中的,而是通过程序建立,在
Formset的ini事件中编写如下程序:
SET CLASSLIB TO libs ADDITIVE
This.AddObject('mybar','move_rec')
This.mybar.show
This.mybar.dock(0)??
关于dock()函数的说明:
值 常量 说明
-1 TOOL_NOTDOCKED 不停放工具栏。
0 TOOL_TOP 在 Visual FoxPro 主窗口的顶部停放工具栏。
1 TOOL_LEFT 在 Visual FoxPro 主窗口的左边停放工具栏。
2 TOOL_RIGHT 在 Visual FoxPro 主窗口的右边停放工具栏。
3 TOOL_BOTTOM 在 Visual FoxPro 主窗口的底部停放工具栏。
(4)执行。在执行表单的同时工具栏会被自动打开.
THE NEXT WAY:
1、自定义属性可以变成对象;
2、对象可以象普通变量一样被传递到其他对象或其他对象的属性中,接收该对象变量的属性将变为对象
;
3、源对象如果未被释放,将和接收被传递对象的属性变成的对象一模一样。也就是说,我们等于在目标
属性上插入了一个源对象的链接。
我们先看第二条,对象可以被象普通变量一样被传递。
在上一篇中我专门讨论了“对象也是一种变量”的观点,只有理解了这一点,才能够接受传递对象的理
论——是变量那么当然可以被传递了。实际上,对象变量被传递的方式更类似于传递数组,带着属性就
好象数组的子集,也是一种变量!
没错,这就是我要证明的第二点:属性也是变量!
尤其是自定义属性,正因为其变量的本质,所以:属性也可以象变量一样被改变数据类型!
正如我们在《VFP6中的_Assign方法》一文中所看到的,一个表单的自定义属性,原来是逻辑型数据的,
在将该属性指定为一个对象变量的名称以后,它的数据类型变成了对象型“O”,而且竟然也有了自己的
属性!
属性的属性——不太好理解吧?其实,根本没什么属性的属性。原来的那个属性,现在已经变成了一个
不折不扣的对象。是对象,当然可以有自己的属性了。而且,要注意的是:这个对象跟源对象是一模一
样的——不止是一模一样,其实根本就是一个对象。
比如说:现在有表单A和B,A上带有一个Custom对象AOC;B有一个属性RcvAoc。现在我们从A表单向B表单
传递AOC对象:
DO form B with thisform.AOC
thisform.hide
在B的INIT事件中接收AOC对象变量,并将它赋值给属性RcvAoc:
LParameters tmprcv
thisform.RcvAoc=tmprcv
这时,B表单的RcvAoc属性变成了一个与A表单的AOC对象除了名字外一模一样的对象,你可以用调试器的
局部窗口观察一下。
从这时开始,我们对RcvAoc做的修改会反应在AOC上,而在AOC上做的修改也会反应在RcvAoc上。看到这
里,你也许会脱口而出:这不是链接嘛!
没错,这就是我想证明的第三点:这种属性接收对象的传递变换,其实质是对象的链接。
一口气谈了那么多理论问题,你也许有点烦了:这看来有趣,但有什么用呢?别急,下面,我们就用这
个理论来解决一个困扰我们多久的实际问题:给顶层表单添加工具栏。
顶层表单有些特殊性,是因为它的“顶层”的缘故。
用普通的建立工具栏的方法给顶层表单添加工具栏,会发现工具栏不能正常显示。事实上,工具栏被顶
层表单挡在后面了,即使你把顶层表单的SHOWWINDOW属性设置为“最上层表单”、把AlwaysOnTop属性设
置为.T.也没用。这是因为工具栏是一种特殊的表单,而在VFP中除了应用程序对象_VFP和_SCREEN对象,
没有其它任何表单的层级比顶层表单高。
有的朋友就此认为顶层表单无法添加工具栏,因而放弃了使用顶层表单而用“古老”的屏幕。其实,顶
层表单还是可以有工具栏的。
要给顶层表单程序添加工具栏,必须把工具栏做在顶层表单本身上,也就是说:要做成TOPFORM.ToolBar
的形式。
下面是我参考有关书籍和《VFP6中的_Assign方法》一文找到的解决办法:
1.在类库MyVcx中建立一个工具栏类MyToolBar,将工具栏的ShowWindow属性设置为1——最上层表单;
2.给顶层表单添加一个自定义属性TopToolBar;
3.编辑顶层表单的Activate event,输入以下代码:
This.TopToolBar=NewObject("MyToolBar","MyVcx")
This.TopToolBar.show()
This.TopToolBar.dock(0)
现在,你就可以享受顶层表单的工具栏了!
以上只是应用三条原则中的第一条“属性可以变成对象”而已。用这三条金钥匙、发挥你的想象力,你
可以作出更漂亮的魔术
如何制作自定义工具栏
1、建立的方法
(1)建立新类别。在命令窗口中执行CREATE CLASS命令后,在新建类窗口中键入类别及类别库的名称,如
下图:
(2)加入按钮对象。当进入类设计器时会发现Toolbar的窗口很小,因此你要仔细的建立按钮,如下图
:
按下工具栏中的按钮,再在类设计器中的工具栏内单击鼠标左键,以加入一个按钮到该自定义工具栏中
,并修改按钮的特性为:
Caption=''
Picture=Top1.bmp
如果发现图形不能完全显示,表示图形太大可以修改成小一点的图形或将按钮拉大,如果要在按钮之间
加入空格,请按下按钮,并在按钮之间按下。
(3)编写按钮的事件过程。就是对每个按钮编写各自的Click过程,这与表单中按钮的Click事件建立过
程一样。
(4)保存。按下Ctrl+W将该类别保存到LIBS.VCX类别库中。
2、类别的应用
此类别是一个Toolbar,而Toolbar事实上也是表格的一种,只是某些特性与表格不同,因此,如果显示
数据的画面也是一个表格,便不能将其加入到数据显示表格中,因此我们要建立一个更大的对象以便同
时加入表格和工具栏,此对象便是Formset。
(1)建立新表格。在命令窗口中执行:CREATE FORM
(2)建立表格集。请选定表单菜单中的创建表格集选项。
(3)建立工具栏对象。对于工具栏不是直接以视觉化方式加入到表格集中的,而是通过程序建立,在
Formset的ini事件中编写如下程序:
SET CLASSLIB TO libs ADDITIVE
This.AddObject('mybar','move_rec')
This.mybar.show
This.mybar.dock(0)??
关于dock()函数的说明:
值 常量 说明
-1 TOOL_NOTDOCKED 不停放工具栏。
0 TOOL_TOP 在 Visual FoxPro 主窗口的顶部停放工具栏。
1 TOOL_LEFT 在 Visual FoxPro 主窗口的左边停放工具栏。
2 TOOL_RIGHT 在 Visual FoxPro 主窗口的右边停放工具栏。
3 TOOL_BOTTOM 在 Visual FoxPro 主窗口的底部停放工具栏。
(4)执行。在执行表单的同时工具栏会被自动打开,如下图: