当前位置:主页   - 电脑 - 程序设计 - VB
VB5.0应用程序的启动与退出设计
来源:网络转载   作者:未知   更新时间:2008-12-23
收藏此页】    【字号    】    【打印】    【关闭
在缺省情况下,应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时,此窗体就被显示出来(因而最先执行的代码是该窗体Form_Initialize事件中的代码)。如果想在应用程序启动时显示别的窗体,就得改变启动窗体,其方法如下:
1贝印肮こ獭辈说ブ校选劝工程属性”。
2毖∪巴ㄓ谩薄
3痹凇捌舳对象”下拉列表中,选取要作为新启动窗体的窗体。
4毖∪叭范ā薄

没有启动窗体时的启动

有时候需要在应用程序启动时不加载任何窗体。例如想先运行装入数据文件的代码,然后再根据数据文件的内容决定显示几个不同窗体中的哪一个。为此,可在标准模块中创建一个名为Main的子过程,并将其设为启动对象。
SubMain()
DimintStatusAsInteger
′调用一个函数过程来检验用户状态
intStatus=GetUserStatus
′根据状态显示某个启动窗体
IfintStatus=1Then
frmMain盨how
Else
frmPassword盨how
EndIf
注意:这个过程必须是一个子过程,且不能在窗体模块内。

结束应用程序

当所有窗体都已关闭并且没有代码正在执行时,事件驱动的应用程序就停止运行。如果最后一个可见窗体关闭时仍有隐藏窗体存在,那么,应用程序表现为已经结束了(因为没有可见的窗体),可实际上却仍在继续运行,直至所有隐藏窗体都关闭为止。之所以出现这种情况,是因为对已卸载窗体的属性或控件的任何访问,都将导致隐含地、不予显示地加载那个窗体。
为了避免出现这类问题,最好的办法是确保所有的窗体都已卸载,可以使用Forms集合和Unload语句。例如在主窗体上可以用一个名为cmdQuit的命令按钮来退出程序,如果应用程序只有一个窗体,则Click事件过程可简单为:PrivateSubcmdQuit_Click()UnloadMeEndSub如果应用程序使用多窗体,通常把代码放入主窗体的Unload事件过程可以卸载这些窗体。可以使用Forms集合确保找到并关闭所有窗体。
PrivateSubForm_Unload
DimiasInteger
′在窗体集合中循环并卸载每个窗体
Fori=0toForms盋ount-1
UnloadForms(I)
Next
EndSub->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明