以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口打开窗口，死机  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164154)
--  作者：jyh7081
--  发布时间：2021/4/27 21:46:00
--  [求助]窗口打开窗口，死机
老师好!
主窗口（模式窗口）的afterload代码如下，不加入最后一行代码没有问题，加入后启动窗口就死机，必须关机重启，任务管理器也打不开。
如果不使用最后一行代码，采用先打开主窗口，再点击“But首页”按钮，是不会有问题。
这是什么原因？

1、afterload代码：
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
......

\'e.Form.Controls("But首页").PerformClick()

-----------------------

2、“But首页”按钮代码：
Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
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.Clear
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
--  作者：有点蓝
--  发布时间：2021/4/27 21:55:00
--  
这种用法不能在设计窗口预览测试，只能退出设计窗口，然后点击应用窗口测试，或者使用代码打开窗口测试。