showWindow只读，是什么意思？ - VFP论坛

楼主

已结贴√ 问题点数：20 回复次数：1

showWindow只读，是什么意思？

程序代码：

&&主程序.prg
SET TALK OFF
SET ECHO OFF
SET DATE TO ansi
SET ESCAPE ON
SET SAFETY OFF
SET EXACT OFF
SET DELETED ON
SET CENTURY ON
CLOSE ALL
CLEAR ALL
&&_screen.Visible= .F.  &&在config.fpw中用SCREEN=OFF代替了
PUBLIC currUser &&,userPerm 登录用户权限
PUBLIC myDrv,myDir,myProgPath &&当前程序所在盘和所在路径
myDrv=SYS(5)
myDir=SYS(2003)
myProgPath=myDrv+myDir
SET DEFAULT TO &myProgPath
DO 登录验证.prg
READ events

DEFINE CLASS exitBtn as CommandButton 
    caption="退　出"
    
    PROCEDURE click
        RELEASE thisform 
    ENDPROC 
ENDDEFINE

＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋

程序代码：

&&登录验证.prg
CLEAR ALL 

loginForm=CREATEOBJECT("myForm")
    WITH loginForm
        .caption="欢迎登录材料管理系统"
        .autoCenter=.t.
        .width=300
        .height=200
        .titleBar=0
        .showWindow=2
        .picture="登录背景.bmp"
        .icon="logo.ico"
        .controlBox=.f.        
        .show
    ENDWITH
READ EVENTS
CLEAR ALL 
RETURN 

DEFINE CLASS myForm as Form 
    ADD OBJECT cmdExit as exitBtn WITH top=168,left=228
    
    
ENDDEFINE

两个问题：
一、公共的类，可以这样写在主程序中吗？
二、为什么提示“属性showwindow只读”？
请各位老师指导一下

搜索更多相关主题的帖子: 主程序　

SET TALK OFF SET ECHO OFF SET DATE TO ansi SET ESCAPE ON SET SAFETY OFF SET EXACT OFF SET DELETED ON SET CENTURY ON CLOSE ALL CLEAR ALL &&_screen.Visible= .F. &&在config.fpw中用SCREEN=OFF代替了 PUBLIC currUser &&,userPerm 登录用户权限 PUBLIC myDrv,myDir,myProgPath &&当前程序所在盘和所在路径 myDrv=SYS(5) myDir=SYS(2003) myProgPath=myDrv+myDir SET DEFAULT TO &myProgPath DO 登录验证.prg &&READ events DEFINE CLASS showWindowForm as Form showWindow=2 PROCEDURE destroy CLEAR EVENTS ENDPROC ENDDEFINE DEFINE CLASS exitBtn as CommandButton caption="退　出" PROCEDURE click RELEASE thisform ENDPROC ENDDEFINE

&&登录验证.prg CLEAR ALL loginForm=CREATEOBJECT("logForm") WITH loginForm .caption="欢迎登录材料管理系统" .autoCenter=.t. .width=300 .height=200 .titleBar=0 &&.showWindow=2 写在这里不行 .picture="登录背景.bmp" .icon="logo.ico" .controlBox=.f. .show ENDWITH READ EVENTS CLEAR ALL RETURN DEFINE CLASS logForm as showWindowForm ADD OBJECT cmdExit as exitBtn WITH top=168,left=228 ENDDEFINE