tempad
ReadyGo!技术成就梦想 >>VB教程 >> VB5.0应用程序的启动与退出设计

VB5.0应用程序的启动与退出设计

ReadyGo!技术成就梦想 网络搜索 efish 2008-2-24 2:47:43
在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来(因而最先执行的代码是该窗体Form_Initialize事件中的代码)。如果想在应用程序启动时显示别的窗体，就得改变启动窗体，其方法如下：
1从“工程”菜单中，选劝工程属性”。
2选劝通用”。
3在“启动对象”下拉列表中，选取要作为新启动窗体的窗体。
4选劝确定”。

没有启动窗体时的启动

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

结束应用程序

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

责任编辑: efish 参与评论 查找更多：
相关文章
VB5.0中实现字体闪烁效果 VB5.0中实现字体闪烁效果
用VB尝试新的界面风格 用VB尝试新的界面风格
利用VB三维面板控件设计流动条 利用VB三维面板控件设计流动条
用VB实现浮动按钮 用VB实现浮动按钮
用VB制作即时动态按钮 用VB制作即时动态按钮
用VB实现象Windows记事本的一些功能 用VB实现象Windows记事本的一些功能
FLIC动画文件的播放程序设计 FLIC动画文件的播放程序设计
用Winsock制作一套聊天室和对话系统 用Winsock制作一套聊天室和对话系统
在程序中打开Internet拨号连接窗口 在程序中打开Internet拨号连接窗口
在WindowsNT网络中广播消息 在WindowsNT网络中广播消息
2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

分类导航
ReadyGo!技术成就梦想