机房收费系统—模块登录

在设置好登录窗体的代码运行后出现问题报错；只允许一个MDI窗体

即在加载frmMain窗体时出现加载两次MDI的现象，那代码问题出现在哪呢？

代码问题出现在读取模块中的Sub Main()中的代码时，代码的逻辑出现问题。代码如下：

Sub main()
    Dim flogin As New frmLogin
    'Dim frmMain As frmMain
    flogin.Show vbModal         '显示登录窗体
    If Not flogin.OK Then
        End
    End If
    Unload flogin  '判断是将进入系统
    'Set fMainForm = New frmMain
    fMainForm.Show
End Sub

在VB中一个工程中只能有一个MDI窗体，Dim ... as New ...,造成多个MDI窗体，设置单引号部分为注释或删除即可。

MDI为主窗体，用于同时显示多个文档，所有的MDI窗体可以层叠、水平平铺、垂直平铺在MDI的工作区内

在这里有一个实例化的说法，那什么是实例化？

实例化就是在面向对象的过程中，把用类创建对象的过程称为实例化。New关键字能够用来建立一个类的实例。