机房收费系统——只允许有一个MDI窗体的问题

     前几天写了一篇博客关于MDI窗体的显示问题。现在又出现了这个问题。仍然是提示只允许有一个MDI窗体。是在单击一个MDI子窗体弹出另一个MDI子窗体时报的错。

    捣鼓了半天，终于弄清是什么问题了。原来写上一篇博客的时候，用到了SetParent函数。问题确实是解决了。但是当时我为了节省运行时的时间，把frmMain设置为了启动窗体。今天运行时是模块里面的Sub Main为启动。

   问题就出自这里。

   在模块里，我们的代码如下：

Sub main()
   Dim flogin As New frmLogin
   flogin.Show vbModal
   
   If Not flogin.OK Then
      End
   End If
   Unload flogin

   Set fMainForm = New frmMain
   fMainForm.Show

End Sub

后来，我把模块里面的Sub Main给注了。把启动窗体设置为了登陆窗体frmLogin。又在frmLogin里面确认密码正确之后的代码下加上了：frmMain.Show。

这个问题暂时就解决了。

对于很多代码我都还没有熟悉，一些错误虽然解决却没有弄清其实质。还有很多地方需要我们去探索。。。