vb应用程序的启动与退出设计

《vb应用程序的启动与退出设计》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB应用程序的启动与退出设计在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。如果想在应用程序启动时显示别的窗体，就得改变启动窗体，其方法如下：1从“工程”菜单中，选劝工程属性”。2选劝通用”。3在“启动对象”下拉列表中。在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来(因而最先执行的代码是该窗体Form_Initialize事件中的代码)。如果想在应用程序启动时显示别的窗体，就得改变启动窗体，其方法如下： 1从“工程”菜单中，选劝工程属性”。 2选劝通用”。 3在“启动对象”下拉列表中，选取要作为新启

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

3、是一个子过程，且不能在窗体模块内。 结束应用程序 当所有窗体都已关闭并且没有代码正在执行时，事件驱动的应用程序就停止运行。如果最后一个可见窗体关闭时仍有隐藏窗体存在，那么，应用程序表现为已经结束了(因为没有可见的窗体)，可实际上却仍在继续运行，直至所有隐藏窗体都关闭为止。之所以出现这种情况，是因为对已卸载窗体的属性或控件的任何访问，都将导致隐含地、不予显示地加载那个窗体。 为了避免出现这类问题，最好的办法是确保所有的窗体都已卸载，可以使用Forms集合和Unload语句。例如在主窗体上可以用一个名为cmdQuit的命令按钮来退出程序，如果应用程序只有一个窗体，则

4、Click事件过程可简单为：PrivateSubcmdQuit_Click()UnloadMeEndSub如果应用程序使用多窗体，通常把代码放入主窗体的Unload事件过程可以卸载这些窗体。可以使用Forms集合确保找到并关闭所有窗体。 PrivateSubForm_Unload DimiasInteger ′在窗体集合中循环并卸载每个窗体 Fori=0toFormsCount－1 UnloadForms(I) Next EndSub相关阅读：应用MFC开发高级应用程序用户学习并使用vb来开发Windows应用的时间是最短的。[摘要]：目前在Windows下开

5、发应用程序的工具虽然很多，但是C/C++作为一种非常成熟和高效的开发语言在大型复杂项目的开发中仍然得到了广泛应用。如果在各个视口中指明具体的窗口名字。VB程序退出按钮我编了一个程序（是可执行文件）。我现在想加一个CommandButton，使得点了它之后这个程序可以自动退出。请问怎么弄？我VB才上了2节课，所以讲简单一点谢谢啦！不过我又想到一个问题,我想让Command1这个按钮点一下后使得Timer1停止，同时让Command1的Caption变成继续，而点击继续后，Comamnd1可以变成暂停，且同时Timer1.Enabled=True请问怎么办到？谢谢啦

6、提问者采纳2010-10-1019:40在窗体上添加一个按钮，编辑代码：PrivateSubCommand1_Click()UnloadMeEndSub这是正常退出，会执行PrivateSubForm_Unload(CancelAsInteger)内容，例如退出确认之类（如果你写了的话）如果你有多个窗体，那么PrivateSubCommand1_Click()EndEndSub此乃强制结束，跳过一切步骤，直接结束。类似结束进程。VB查找文件(文件夹)VB查找文件(文件夹)2007-02-0905:10以查找"D:"下所有文件夹为例：在窗体上添加一个Comman

7、dButton，它的单击代码如下：PrivateSubCommand1_Click()mypath="D:"   '将要查找的目录赋值给mypathMyName=Dir(mypath,vbDirectoryOrvbHiddenOrvbNormalOrvbReadOnlyOrvbSystem)'找到第一个入口，DIR返回找到的第一个文件（文件夹）DoWhileMyName<>""  '开始循环   IfMyName<>"."AndMyName<>".."Then'忽略当前目录和子目录     '确保变量MyName取得的值是文件夹名      If(GetAtt

8、r(mypath&MyN