回 帖 发 新 帖 刷新版面

主题:常用工具栏显示的问题

编译好的EXE程序,当启动时,怎样控制在自己程序的菜单下是否显示常用工具栏?

回复列表 (共4个回复)

沙发

先建一个工具栏,作为类保存好
在此类的INIT事件中加入
this.dock(0)  &&工具栏的停留位置

在主程序启动时添加:
PUBLIC 工具栏名
工具栏名=CREATEOBJECT('工具栏名')
工具栏名.SHOW  &&是否显示


建议在一子菜单控制工具栏显示与否:
IF 工具栏名.VISIBLE
 工具栏名.VISIBLE=.F.
 SET MARK OF BAR 1 OF 菜单栏 TO .F.  
ELSE
 工具栏名.VISIBLE=.T.
 SET MARK OF BAR 1 OF 菜单栏 TO .T. &&显示工具栏时菜单前加勾
ENDIF  

板凳

隐藏窗口:
HIDE WINDOW "常用"

显示窗口:
SHOW WINDOW "常用"

3 楼

1楼好帖,值得学习。

4 楼

请教:

怎样建一个工具栏,作为类保存?

我来回复

您尚未登录,请登录后再回复。点此登录或注册