大家有没有遇到这样的情况?看到这个问题真是让人眼前一亮
这个代码是从学生中借鉴来的,学生是没有问题,但是……在机房里就水土不服了Sub main() Dim flogin As New frmlogin flogin.Show vbModal If Not flogin.ok Then End End If Unload flogin Set fmainform = New frmmain frmmain.Show End Sub
查找资料,错误原因解决方法如下:
- 试图向工程中加载包含 MDIForm 的文件,该工程中已经包含一个 MDIForm。
在加载其它文件之前,先删除包含已加载 MDIForm 的文件。
- 试图加载 MDIForm 的第二个实例,该 MDIForm 是用 Dim 或 Set 语句创建的。
在工程中仅能创建 MDIForm 的一个实例。
一、开始以为是第二个错误原因,结果是绊在第一个问题上
在模块中
Set
fmainform
=
New
frmmain而这里又出现了一次,所以有了冲突
Set fMainform = New frmmain
fMainform.Show
fMainform.Show
改为
Set fMainform = New frmmain
frmmain.Show
frmmain.Show
我依葫芦画瓢这样改了一下,结果还是不行
最后果断将他注释掉,然后就没有问题了
三、有人说frmmain改为普通窗体也可以解决问题,这是一个可行的方法,因为这样就没有什么主窗体了
![霸道的MDI - 12期 马金兴 - 马金兴 廊坊师范学院信息技术提高班十二期](https://i-blog.csdnimg.cn/blog_migrate/1e21f8bcacf6d784a2665b65897fd559.gif)