| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]隐藏主界面会死机 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=174615) |
| -- 作者：天一生水 -- 发布时间：2022/1/23 21:10:00 -- [求助]隐藏主界面会死机 老师好！ 下面的2段代码，是启动项目后，打开的模式窗口的afterload代码。 单独运行第1段代码，隐藏主界面没有问题。 然后把第2段代码放到按钮里运行，也没有问题。 但是把1、2全部放到窗口的afterload里运行就会死机，只能重启计算机。 在1和2之间加Application.DoEvents 也不行，这是什么原因？ 1、 AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown \'无边框移动 e.form.BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None e.Form.BaseForm.ShowInTaskbar = True e.Form.BaseForm.Owner = BaseMainForm baseMainform.visible = False \'隐藏主界面 \'Application.DoEvents \'代码生效 2、 Dim PB As WinForm.Panel = e.Form.Controls("Panel1") PB.BaseControl.Controls.Clear Dim Name As String = "首页" \'只要修改一下这里就行 ,窗口的名称 Forms(Name).OPEN(-1000,-1500) Forms(Name).BaseForm.TopLevel = False Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill PB.BaseControl.Controls.add(Forms(Name).BaseForm) |
| -- 作者：有点蓝 -- 发布时间：2022/1/23 21:38:00 -- 这种问题没有办法解决。因为根本无法调试，所以我们一直都明确无法给这嵌入窗口的用法提供技术支持 |