● VB5.0应用程序的启动与退出设计 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: lingling (别时茫茫江浸月), 信区: Program
标  题: VB5.0应用程序的启动与退出设计
发信站: BBS 荔园晨风站 (Sun Nov  8 02:33:59 1998), 站内信件

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

    设置启动窗体
　　在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，
此窗体就被显示出来(因而最先执行的代码是该窗体Form_Initialize事件中的代码)。
如果想在应用程序启动时显示别的窗体，就得改变启动窗体，其方法如下：
　　1从“工程”菜单中，选取“工程属性”。
　　2选取“通用”。
　　3在“启动对象”下拉列表中，选取要作为新启动窗体的窗体。
　　4选取“确定”。
　　没有启动窗体时的启动
　　有时候需要在应用程序启动时不加载任何窗体。例如想先运行装入数据文件的代码，
然后再根据数据文件的内容决定显示几个不同窗体中的哪一个。为此，可在标准模块中
创建一个名为Main的子过程，并将其设为启动对象。
　　Sub Main()
　　Dim intStatus As Integer
　　′调用一个函数过程来检验用户状态
　　intStatus=GetUserStatus
　　′根据状态显示某个启动窗体
　　If intStatus=1 Then
　　frmMainShow
　　Else
　　frmPasswordShow
　　End If
　　注意：这个过程必须是一个子过程，且不能在窗体模块内。
　　结束应用程序
　　当所有窗体都已关闭并且没有代码正在执行时，事件驱动的应用程序就停止运行。
如果最后一个可见窗体关闭时仍有隐藏窗体存在，那么，应用程序表现为已经结束了
(因为没有可见的窗体)，可实际上却仍在继续运行，直至所有隐藏窗体都关闭为止。
之所以出现这种情况，是因为对已卸载窗体的属性或控件的任何访问，都将导致隐含
地、不予显示地加载那个窗体。
　　为了避免出现这类问题，最好的办法是确保所有的窗体都已卸载，可以使用Forms集
合和Unload语句。例如在主窗体上可以用一个名为cmdQuit的命令按钮来退出程序，如果
应用程序只有一个窗体，则Click事件过程可简单为：
　　Private Sub cmdQuit_Click()
　　Unload Me
　　End Sub
　　如果应用程序使用多窗体，通常把代码放入主窗体的Unload事件过程可以卸载这些
窗体。可以使用Forms集合确保找到并关闭所有窗体。
　　Private Sub Form_Unload
　　Dim i as Integer
　　′在窗体集合中循环并卸载每个窗体
　　For i=0 to FormsCount －1
　　Unload Forms(i)
　　Next
　　End Sub　　(江苏　周　奎)

--

           * 月如眸，如我，如心，如无桨之舟，始也漂泊，终也流浪。

※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 172.24.13.80]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店