显示窗体时慎用Dim……as new

原创于 2010-08-30 18:29:00 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

Visual Basic 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个关于MDI窗体的常见错误及其修正方法。错误发生在尝试显示多个MDI窗体时，导致程序崩溃。修正的方法是确保工程中只有一个MDI窗体被实例化并显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

错误之一：显示其他子窗体时，报错，只能有一个MDI窗体。

原代码：Sub Main()
Dim fLogin As New frmLogin '显示登录窗体
Dim fMainForm As New frmMain

fLogin.Show vbModal 
  
If Not fLogin.OK Then   
   End
End If  
 
Unload fLoginfMainForm.Show

错误原因：不言自明，一个工程中只能有一个MDI窗体，dim …… as new ,造成多个MDI窗体。

修正：Sub Main
frmLogin.Show vbModal
   
If Not frmLogin.OK Then
   End
End If
   
Unload frmLogin
frmMain.Show