老师好！下面的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)
加好友 
发短信
Post By：2022/1/23 21:10:00 [显示全部帖子]
