标题:求助!隐藏vFP中的常用工具栏的问题:编译成EXE运行时提示错误?
只看楼主
whsjs
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2014-7-12
结帖率:66.67%
已结贴  问题点数:20 回复次数:5 
求助!隐藏vFP中的常用工具栏的问题:编译成EXE运行时提示错误?
本人使用"hide windows 常用",
确实是实现了“隐藏常用工具栏”的功能;
创建PROJECT,编译成EXE文件都正常
但运行EXE文件时,提醒:没有定义窗口“常用”


麻烦给点拨一下?
搜索更多相关主题的帖子: 隐藏 工具栏 编译 EXE 运行 
2017-08-31 19:06
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:10 
没有定义,说明这个窗口不存在

坚守VFP最后的阵地
2017-08-31 19:12
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:10 
编译成EXE好象是没系统工具栏。

VFP环境可以这样试试:
CLEAR
DIMENSION aSysToolbars[12,2]
aSysToolbars[1,1] = "表单设计器"
aSysToolbars[2,1] = "常用"
aSysToolbars[3,1] = "布局"
aSysToolbars[4,1] = "查询设计器"
aSysToolbars[5,1] = "视图设计器"
aSysToolbars[6,1] = "调色板"
aSysToolbars[7,1] = "表单控件"
aSysToolbars[8,1] = "数据库设计器"
aSysToolbars[9,1] = "报表设计器"
aSysToolbars[10,1] = "报表控件"
aSysToolbars[11,1] = "打印预览"
aSysToolbars[12,1] = "维护精灵"
? "隐藏"
_HideSysToolbars(@aSysToolbars)
? "2秒后显示"
INKEY(2)
? "显示"
_ShowSysToolbars(@aSysToolbars)
? "按任一键结束"
INKEY(0)
RETURN

FUNCTION _HideSysToolbars(aSysToolbars)
    LOCAL i
    FOR i=1 TO ALEN(aSysToolbars,1)
        IF WEXIST(aSysToolbars[i,1]) AND WVISIBLE(aSysToolbars[i,1])
            aSysToolbars[i,2] = .T.
            HIDE WINDOW (aSysToolbars[i,1])
        ENDIF
    ENDFOR
ENDFUNC

FUNCTION _ShowSysToolbars(aSysToolbars)
    LOCAL i
    FOR i=1 TO ALEN(aSysToolbars,1)
        IF WEXIST(aSysToolbars[i,1]) AND aSysToolbars[i,2]
            SHOW WINDOW (aSysToolbars[i,1])
        ENDIF
    ENDFOR
ENDFUNC
2017-08-31 20:50
whsjs
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2014-7-12
得分:0 
以下是引用吹水佬在2017-8-31 20:50:37的发言:

编译成EXE好象是没系统工具栏。

VFP环境可以这样试试:
CLEAR
DIMENSION aSysToolbars[12,2]
aSysToolbars[1,1] = "表单设计器"
aSysToolbars[2,1] = "常用"
aSysToolbars[3,1] = "布局"
aSysToolbars[4,1] = "查询设计器"
aSysToolbars[5,1] = "视图设计器"
aSysToolbars[6,1] = "调色板"
aSysToolbars[7,1] = "表单控件"
aSysToolbars[8,1] = "数据库设计器"
aSysToolbars[9,1] = "报表设计器"
aSysToolbars[10,1] = "报表控件"
aSysToolbars[11,1] = "打印预览"
aSysToolbars[12,1] = "维护精灵"
? "隐藏"
_HideSysToolbars(@aSysToolbars)
? "2秒后显示"
INKEY(2)
? "显示"
_ShowSysToolbars(@aSysToolbars)
? "按任一键结束"
INKEY(0)
RETURN

FUNCTION _HideSysToolbars(aSysToolbars)
    LOCAL i
    FOR i=1 TO ALEN(aSysToolbars,1)
        IF WEXIST(aSysToolbars) AND WVISIBLE(aSysToolbars)
            aSysToolbars = .T.
            HIDE WINDOW (aSysToolbars)
        ENDIF
    ENDFOR
ENDFUNC

FUNCTION _ShowSysToolbars(aSysToolbars)
    LOCAL i
    FOR i=1 TO ALEN(aSysToolbars,1)
        IF WEXIST(aSysToolbars) AND aSysToolbars
            SHOW WINDOW (aSysToolbars)
        ENDIF
    ENDFOR
ENDFUNC

2017-08-31 21:32
whsjs
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2014-7-12
得分:0 
版主就是牛!牛版!
问题已解决!
2017-08-31 21:33
whsjs
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2014-7-12
得分:0 
简单就是:
hide windows 常用
改成:
IF WEXIST("常用") AND WVISIBLE("常用")
   HIDE WINDOW ("常用")
ENDIF

向吹水佬致敬
2017-08-31 21:36



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-480387-1-1.html




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

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