機房收費系統—模組登入

在設定好登入表單的代碼運行後出現問題報錯；只允許一個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.ShowEnd Sub

在VB中一個工程中只能有一個MDI表單，Dim ... as New ...,造成多個MDI表單，設定單引號部分為注釋或刪除即可。

MDI為主表單，用於同時顯示多個文檔，所有的MDI表單可以層疊、水平平鋪、垂直平鋪在MDI的工作區內

在這裡有一個執行個體化的說法，那什麼是執行個體化。

執行個體化就是在物件導向的過程中，把用類建立對象的過程稱為執行個體化。New關鍵字能夠用來建立一個類的執行個體。