以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助basemainform.visible=False  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119097)
--  作者：时雨
--  发布时间：2018/5/17 15:55:00
--  求助basemainform.visible=False
老师好，我想问一下basemainform.visible=False 这条语句如果加在AfterOpenPreject事件中就会立即生效，菜单没有了，要怎么发布项目
[此贴子已经被作者于2018/5/17 15:55:22编辑过]
--  作者：有点甜
--  发布时间：2018/5/17 16:03:00
--  

这样写代码

 

If ProjectFile.EndsWith("foxdb") Then
    msgbox("开发状态")
Else
    msgbox("发布状态")
    basemainform.visible=False
End If
--  作者：时雨
--  发布时间：2018/5/17 16:18:00
--  
版主您好，你的代码我试了，不知什么原因没有效果，
我自己尝试过
If User.Type=UserTypeEnum.Administrator Then
basemainform.visible=False
End If
这样写，有效果，但发布后就没用了
--  作者：有点甜
--  发布时间：2018/5/17 16:21:00
--  

AfterOpenProject事件，写代码

 

 

If ProjectFile.EndsWith("foxdb") Then
    msgbox("开发状态")
Else
    msgbox("发布状态")
    basemainform.windowstate = 0
    basemainform.width = 0
    basemainform.height = 0
    basemainform.top = -1000    
    basemainform.left = -1000
End If
--  作者：时雨
--  发布时间：2018/5/17 16:32:00
--  
版主您好
Forms("主界面").Open()
If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If 
If ProjectFile.EndsWith("foxdb") Then
    msgbox("开发状态")
Else
    msgbox("发布状态")
    basemainform.windowstate = 0
    basemainform.width = 0
    basemainform.height = 0
    basemainform.top = -1000    
    basemainform.left = -1000
End If
这是我的代码，还是弹出对话框，关闭之后出现系统窗口，去掉message直接出现
图片点击可在新窗口打开查看此主题相关图片如下：b0z$31~s$izw@))swmf`q.png
图片点击可在新窗口打开查看
系统窗口
--  作者：有点甜
--  发布时间：2018/5/17 16:34:00
--  
发布后测试。