Question

VB mdi窗体下,如何弹出一个新窗体(非mdi子窗体)时,保证新窗体卸载或退出后再执行？即弹出新

窗体后,不可操作mdi窗体上的任何事

Answer 1

LZ是想：VB mdi窗体下，如何弹出一个新窗体(非mdi子窗体)时，保证新窗体卸载或退出后再执行？即弹出新窗体后，不可操作mdi窗体上的任何事件。
建议将弹出的新窗体的BorderStyle 属性设置为None，并将该窗体设计成与Mdi主窗体相同，覆盖于Mdi主窗体前，只有操控该窗体的某按钮退出才能操控mdi窗体上控件。

追问

额😓方法我找到了,概念也知道了.就是模式窗体和非模式窗体的显示参数不一样而已。你那说的不可取

以前VBA没遇到过这种概念

追答

抱歉，好久不看VB编程了，有些概念已经淡忘了。

要将窗体作为模式对话框显示，请

• 使用 Show 方法，其 style 参数值为 vbModal（一个值为 1 的常数）。

  例如：

  '将 frmAbout 作为模式对话框显示。frmAbout.Show vbModal
  

要将窗体作为无模式对话框显示，请

• 使用不带 style 参数的 Show方法。

  例如：

  '将 frmAbout 作为无模式对话框显示。frmAbout.Show
  

VB6.0代码   

Private Sub Form_Load()

Me.Show vbModal

End Sub

Answer 2

1.
启动vb6,新建一个标准EXE工程。
2.
在“工程”菜单里选择“添加MDI窗体”, 点击“打开”,添加了一个MDIForm1窗体, 这步也可以工程窗口的窗体图标上右键完成...
3.
在“工程”菜单里选择“XXX 属性”, 在弹出的窗口里把启动对象设成MDIForm1。
4.
在form1的属性窗口里,把MDIChild属性设置为True。
5.
在Private Sub MDIForm_Load()过程里添加form1.show。