顶层表单做主窗口,如何设计主程序及菜单、工具栏
程序是用顶层表单做主窗口的框架是这样的:程序1(主程序)显示欢迎表单(这个没问题),然后启动登录表单,密码输入正确后点击“登录”(到此也没问题),执行主窗口顶层表单(这进就出问题了,主窗口表单一闪而过?代码如下:
非常感谢各位大侠的帮助,设置主表单的windowtype为模式以后,问题解决了,但又出现了新问题,如图,执行一个表单一下出现了两个窗口?这个可能是工具栏的事,一个窗口有菜单,一个窗口没有菜单!请
主程序代码:
程序代码:
MODIFY WINDOW SCREEN TITLE "***管理理系统" ICON FILE 'digg.ico'
SET DEFAULT TO CURDIR()
Set Talk Off
Set Escape Off
Set Date To Long
Set Deleted On
Set Safety Off
Set Sysmenu Off
Set Century On
Set Century To 19
SET HOURS TO 24
SET PATH TO bak;导出数据;历年数据
CLEAR
CLEAR ALL
_SCREEN.Visible=.F.
DO FORM welcome.scx
WAIT window[] TIMEOUT 1.5
welcome.release
Do FORM 登录.scx
read events
在登录表单里输入正确的用户名密码后,点击“登录”click:do 程序2.prg
thisform.release
程序2代码:
程序代码:
PUBLIC tfdzgw
Do FORM 管理系统表单.scx &&&NAME tfdzgw
_SCREEN.Visible=.F.
READ events
管理系统表单的 activate 事件中加入如下代码,在测试时候工具栏、表单及表单中的菜单运行正常,但当用主程序启动的时候就出现了如上图的问题,,
程序代码:
IF VARTYPE(toptoolbar)#"o"
This.TopToolBar=NewObject("常用工具栏","appclass")
This.TopToolBar.show()
This.TopToolBar.dock(0)
endif
请高手指点这是怎么回事??
[ 本帖最后由 qshuju 于 2013-4-29 20:46 编辑 ]