VisualBasic菜单在应用程序中的使用

再论形式

除了表单设计的原则，还需要考虑应用的开头和结尾。有一些提示可以用来决定应用程序启动时的外观。熟悉应用程序卸载过程中的一些流程也很重要。

设置启动窗体
默认情况下，应用程序中的第一个窗体被指定为启动窗体。当应用程序开始运行时，将显示表单(因此执行的第一个代码是表单的Form_Initialize事件中的代码)。如果您想在应用程序启动时显示其他窗体，您必须更改启动窗体。
要更改启动表单，请按照下列步骤操作:
1。从“项目”菜单中，选择“项目属性”。
2。选择“常规”。
3。在启动对象列表框中，选择要作为新启动窗体的窗体。
4。选择确定。

启动而不启动窗体
有时可能需要启动应用程序而不加载任何窗体。例如，您可能希望首先运行加载数据文件的代码，然后根据数据文件的内容决定显示几种不同形式中的哪一种。为此，您可以在标准模块中创建一个名为Main的子流程，如下例所示。
sub main ()
将状态限定为整数
'调用函数过程来检查用户状态。
int status = getuser status
'根据状态显示启动窗体。
if int status = 1 then
frmmain . show
else
frmpassword . show
end if
该进程必须是子进程，不能在表单模块中。要将Sub Main进程设置为启动对象，请从“项目”菜单中依次选择“项目属性”、“常规”,然后从“启动对象”框中选择Sub Main。

启动时快速显示
如果启动时有较长的执行过程，比如从数据库加载大量数据或者一些大的位图，可能要在启动时给一个快速显示。快速显示是一种表单，通常显示应用程序名称、版权信息和简单位图等内容。启动Visual Basic时显示的屏幕是快速显示。
要显示快速显示，您需要使用Sub Main过程作为启动对象，并使用Show方法显示表单:
Private Sub Main()
'显示快速显示。
frmSplash。Show
'在此添加启动过程。
...
'显示主窗体并卸载快速显示。
frmmain . show
unload frmsplash
end sub
当一些启动例程正在执行时，快速显示可以吸引用户的注意力，造成应用程序加载很快的错觉。当这些启动例程完成时，可以加载第一个表单并快速显示卸载。
对于快显的设计，尽量简单。如果您使用大量位图或大量控件，快速显示本身将加载缓慢。

结束应用程序
当所有窗体都关闭并且没有代码正在执行时，事件驱动的应用程序将停止运行。如果关闭最后一个可见窗体时隐藏窗体仍然存在，那么应用程序看起来已经结束(因为没有可见窗体)，但实际上应用程序继续运行，直到所有隐藏窗体都关闭。发生这种情况是因为对未加载窗体的属性或控件的任何访问都将导致该窗体被隐式加载而不显示。
为了避免关闭应用程序时出现这类问题，方法是确保卸载所有表单。如果有多个窗体，可以使用Forms集合和Unload语句。例如，在主窗体上，可以使用名为cmdQuit的命令按钮退出程序。如果应用程序只有一个窗体，Click事件过程可以如下:
private subcmd quit _ Click()
Unload me
end sub
如果应用程序使用多个窗体，可以通过将代码放在主窗体的Unload事件过程中来卸载这些窗体。可以使用Forms集合来确保找到并关闭所有窗体。下面的代码使用form集合卸载所有窗体:
private subform _ unload(cancel as integer)
dim I as integer
'循环遍历form集合并卸载每个窗体。
For I = Forms . count-1 to 0 step-1
Unload Forms(I)
Next
end sub
有些情况需要结束应用程序，而不管现有窗体或对象的状态如何。因此，VisualBasic提供了End语句。
End语句使应用程序立即结束:End语句之后的代码不会被执行，也不会再有事件发生。特别是，Visual Basic不会执行任何形式的QueryUnload、Unload或Terminate事件过程。对象将被释放，但如果您定义了自己的类，Visual Basic将不会执行由这些类创建的对象的Terminate事件。
除了End语句，Stop语句还可以暂停应用程序。但是，Stop语句只能在调试期间使用，因为它不释放对象的引用。
有关Stop语句的更多信息，请参考《语言参考》第13章“调试代码和处理错误”中的“使用中断模式”和“Stop语句”。有关表单集合或释放对象引用的信息，请参阅第9章“用对象编程”。

在应用程序中使用菜单

许多简单的应用程序只由一个窗体和几个控件组成，但Visual Basic应用程序的功能可以通过添加菜单来增强。本节将描述如何在应用程序中创建和使用菜单。