主题：系统菜单的隐藏问题

请教高手：

 

登陆按钮之后，我希望只弹出窗口，系统菜单隐藏，之前庞老师告诉我使用 代码CurrentTable.Grid.Findform.Visible = False  '隐藏，确实有效，但是发布程序后的系统仍然会弹出系统菜单与表单，后来又用了baseMainform.Visible = False等语句，都是编辑状态下能隐藏，发布后这个隐藏的语句就无效了，特来请教：

登陆窗口是模式窗口，系统首页是独立窗口，是否可以做到只看到窗口，见不着系统菜单。

 

 

此主题相关图片如下：问题如下图

等专家来解答

这个作法 我研究了一下  要么就打开一个窗口,所有的工作全部在这个窗口完成,如果是多窗口,把所有的窗口全部设置为模式,而且必须保证有一个窗口不被关闭.这样才行,不然会进入系统的.

谢谢布莱克朱的提示，

 

我找到解决办法了，把所有窗口都设置为 模式窗口的同时，在首页窗口的BeforClose事件中加入以下代码即可：

 

Dim Result As String
Result = MessageBox.Show("确定退出系统吗?","提示" ,MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Result = DialogResult.No Then
    e.Cancel=True
Else
Syscmd.Project.Exit() ’退出的同时关闭整个项目
End If

 

就是不知道这样做会不会有什么弊端，希望还有高手路过。

顶帖关注

谢谢

这位也是看了我那小白视频吧

你可以把主窗体做在main表里