机房收费系统之实时错误426

背景

今天在敲机房收费系统的登录窗体的时候运行时忽然出现了一个错误，426

其实之前自己在敲学生的时候也遇到过这样的问题，但是当时自己没有好好总结，所以在今天又遇到了这个问题，自己挖的不填迟早是要继续摔跤的。

错误出现原因

这两句话的意思是新建一个frmMain主窗体，但是在VB程序中只能够存在一个MDI窗体，不可能存在两个。

解决办法

不再建立新的窗体，直接让窗体显示

Sub Main()    Dim flogin As New frmLogin'显示登录窗体    flogin.Show vbModal'判断是否授权用户    If Not flogin.ok Then    'Login Failed so exit app    End    End If    Unload flogin'判断是否将进入系统   FrmMain.ShowEnd Sub

自己可能能力有限，所以可能说的很浅显，推荐一个博客，原因写的很全面，感兴趣的小伙伴可以看看。

http://blog.csdn.net/yyzzhc999/article/details/51953536