VB.net 多窗口程序，如何在所有窗口被关闭后自动结束程序运行？

Sub Main()
        Call Read_CFG() '读取 本地配置文件
        Dim xx As New SQLstr_DB
        frmSQLstr.Show()
        frmOpenCFG.Show()
        Do While True
            DoEvents()
        Loop
End Sub

由于Sub Main()中，必须使用DoEvents()循环保持程序运行。关闭所有窗口后无法自动退出程序.
求解决!

4 个解决方案

#1

可以用这个退出.

  Application.Exit()

#2

引用 1 楼 fengqingtao2008 的回复:

可以用这个退出.

  Application.Exit()

请教如何判断,所有的窗体都已经关闭了?

#3

【判断,所有的窗体都已经关闭】不是问题，问题是要确保窗体是真的关闭了而不是仅仅看不见

#4

项目属性里有个应用程序设置，有个关机模式选择，设为当最后一个窗体关闭时关机就可以了。