机房收费系统—— 一堆小问题2

首先有好东西给大家分享一下（请用力地点击下面那幅图）。即使已经把机房做完了，看看它，也绝不会后悔。它可以用来复习从提高班入学到现在的大部分知识。有图有真相。

接下来说说我遇到的问题。

1、点击右上角图标弹出提示对话框。

<span style="font-size:24px;">'点击右上角的叉，退出程序
Private Sub mdiForm_QueryUnload(Cancel As Integer,UnloadMode As Integer)
    If MsgBox("是否要退出",vbYesNo + vbDefaultButton2,"提示") = vbNo Then
        Cancel = True    '组织窗体被卸载
    Else
        End         '卸载窗体，退出程序
    End If
End Sub</span>

窗体的QueryUnload事件发生在Unload事件之前。用来做些善后，比如询问你文件是否保存，询问是否退出等。它有个Cancel参数，设为True后就会阻止窗体被卸载。

Unload 事件是当窗体从屏幕上删除时发生。将 cancel 设置为任何非零的值可防止窗体被删除，但不能阻止其它事件，诸如从 Microsoft Windows 操作环境中退出等。可用 QueryUnload 事件阻止从 Windows 中的退出。

有一些解释还有些不理解。比如它不能阻止的那些“其它事件”是什么东西？

2、MDI父窗体调用子窗体，子窗体无法显示。 ——被picturebox挡住了

解决办法：马康的博客

3、重新认识subMain函数。原来它是程序的入口。啊啊。在敲学生的时候，修改了启动窗体，直接把它跳过去了。我说怎么按照源码，主窗体调不出来呢，害的我又自己加的显示主窗体。

4、把窗体作为类，实例化。不知道有什么好处。理解的很浅，有理解的同学，求留言，求解说。

随着问题被一个一个地解决，机房有雏形的雏形，我知道问题会不断地冒出来。但是解决问题会让自己越来越能耐下性子来，越来越有执行力。接下来，拥抱问题，成长。