VFP中工具栏的建立注意事项和添加操作由刀豆文库小编整理,希望给你工作、学习、生活带来方便,猜你可能喜欢“vfp表操作基础练习题”。
VFP中工具栏的建立注意事项和添加操作
1,建立工具栏
创建工具栏的可视类mytool(具体方法网上很多),指定工具栏类的“ShowWindow=1”(必须的,否则的话工具栏会停靠在VF的主窗口中),如果工具栏上的控件的方法需要引用父表单的属性或方法(一般都会需要),在这个工具栏的可视类中添加一个新的用于保存父表单对象的属性(oMianform),通过该属性来引用父表单上所有一切。
在工具栏类的“Init”事件中写下如下代码:
Parameter oform
This.omainform=oform
2,添加到表单
要在表单中添加工具栏必须先在表单中添加自定义属性mytools(或者别的名字),初始值.f.,注意这个表单必须具备该属性:ShowWindow=2(也就是该表单为顶层表单)
以下代码写在表单的activate事件里:
*先判断是否已经载入工具栏,避免重复
if type(“thisform.mytools”)=“0” and!isnull(thisform.mytools)
return
endif
set clalib to mycla additive
thisform.mytools=createobject('mytool')&&创建工具栏
this.mytools.dock(0)&&放置在屏幕顶端
this.mytools.show&&显示工具栏
release clalib mycla