| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 797 人关注过本帖
标题:关于自定义工具栏的问题,好多天了,没明白。
只看楼主 加入收藏
sdyswjlu
Rank: 1
等 级:新手上路
帖 子:108
专家分:0
注 册:2010-9-10
结帖率:95%
收藏
 问题点数:0 回复次数:2 
关于自定义工具栏的问题,好多天了,没明白。
我在网上找了一段代码请大家给看看
1、新建类——输入类名mytoolbar,派生于:toolbar,存储于:桌面,存储在中输入:mytoolbar,点击确定后,在工具条中加入三个command按钮。将工具栏的ShowWindow属性设置为1——最上层表单;按ctrl+W 保存
2、做表单form1,showwindow=2

3.给顶层表单添加一个自定义属性TopToolBar;
4、顶层表单init
set fault to  "c:\documents and settings\administrator\"
set path  to  桌面\
5.编辑顶层表单的Activate event,输入以下代码:

This.TopToolBar=NewObject("MyToolBar","toolbar")

This.TopToolBar.show()

This.TopToolBar.dock(0)

运行时出现:文件‘c:\documents and settings\administrator\toolbar.vcx’不存在
我找toolbar.vcx,也没找到。我该怎么做?
搜索更多相关主题的帖子: 编辑 工具栏 
2010-12-22 21:21
sdyswjlu
Rank: 1
等 级:新手上路
帖 子:108
专家分:0
注 册:2010-9-10
收藏
得分:0 
这是我在网上找得一位高手的,我结合自己的情况,修了一下,在vfp9.0上 运行成功,分享给大家
下面是这位高手发表时的原址:
http://www.

制作工具条并在表单中引用
1、在项目管理器 类 那个页面里新建一个类mytoolsbar,继承于toolbar,保存到C:\Documents and Settings\Administrator\桌面\vf资料\程序\文件夹下,将mytoolsbar的showwindow属性设为在顶层标单中(因为我侧程序一般都是用顶层标单,不要_screen)。
2、在运行需要有工具栏的表单之前,定义变量(这一步根据情况,可要可不要)
public omyform1,
do form  表单名 name omyform1
3、在需要调用mytoolsbar表单
init中定义全局变量 publ omytoolbar,
在需要调用mytoolbar表单的active事件中
SET DEFAULT TO 'C:\Documents and Settings\Administrator\桌面\vf资料\'
SET PATH TO 程序\
SET CLASSLIB TO  mytoolsbar  additive&&如果mylib不在默认目录下,需要写上路径
omytoolbar=createobject('mytoolsbar')
omytoolbar.show&&显示
omytoolbar.dock(0)&&停放
如果把上面一段代码写到do form 之后,则form一开始就有工具栏

4、这样,就是指工具栏上的combo1,
而在omytoolsbar上面操作omyform,可以用,omyform1.text1.value=之类的
2010-12-22 22:20
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
回复 楼主 sdyswjlu
很明显你的路径设置不正确!
查查桌面的路径应该怎么写!(你的类库文件不是保存在桌面上吗?)

★★★★★为人民服务★★★★★
2010-12-24 07:51
快速回复:关于自定义工具栏的问题,好多天了,没明白。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027884 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved