- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 程序全屏运行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164928)
-- 发布时间：2021/5/9 15:36:00
-- 程序全屏运行
如何让发布后的项目，运行后直接全屏运行，连window的任务栏也不能看到，目的就是让用户只能运行这个项目不能再打开其它程序，只有关闭项目后才可以
-- 发布时间：2021/5/9 22:15:00
--
设计一个模式窗口，窗口属性
最顶层：true
大小可调：false
显示控制框：false
窗口afterload：
e.form.baseform.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
e.form.baseform.windowstate = 2
-- 发布时间：2021/5/17 9:25:00
--
我现在用上面的办法全屏了， 但是我用程序close这个模式窗口后，再open别的模式窗口，也是看不到后来打开的窗口的呢，怎么解决
-- 发布时间：2021/5/17 9:33:00
--
如果是在模式窗口A里的按钮打开别的模式窗口B，模式窗口A里的按钮代码
e.Form.baseform.Close
e.Form.baseform.opacity = 0
Forms("B").Show
-- 发布时间：2021/5/17 9:54:00
--
我在“systemidle”里写的代码如下：
If LastInputTickCount > 20000 Then
For Each frm As WinForm.Form In Forms
If frm.name <> "欢迎" Then
frm.close()
End If
Next
Forms("欢迎").baseform.Close
Forms("欢迎").baseform.opacity = 0
Forms("全屏").show()
End If
时间到了，直接跳出错误，不行呀
-- 发布时间：2021/5/17 10:00:00
--
If LastInputTickCount > 20000 Then
For Each frm As WinForm.Form In Forms
If frm.opened Then
frm.close()
End If
Next
Forms("全屏").show()
End If
-- 发布时间：2021/5/17 11:34:00
--
还是不行呢，按你的意思在”systemidle“那里改了不行，现在我按你的第一个建议在"A""B"两个窗口之间转换也不行，还是后面打开的窗口看不见
我的做法如下：
第一，做"A""B"两个窗口，都按如下设定属性
最顶层：true 大小可调：false 显示控制框：false 窗口afterload： e.form.baseform.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None e.form.baseform.windowstate = 2 第二，两个窗口都做一个按键程序如下 B窗口 e.Form.baseform.Close e.Form.baseform.opacity = 0 Forms("A").Show A窗口 e.Form.baseform.Close e.Form.baseform.opacity = 0 Forms("B").Show 这样子，从A窗口切换到B窗口可以实现，但是再从B窗口切回A窗口时，B窗口是关了，A窗口没有显示。怎么办？？ |
-- 发布时间：2021/5/17 11:53:00
--
请上传实例测试
-- 发布时间：2021/5/17 12:05:00
--
例子如下
-- 发布时间：2021/5/17 12:06:00
--
如果要开发者密码就是0057