如何在VB中把窗體卸載干凈

VB的End語句并不總是將在程序中打開的東西卸載得一干二凈。例如你在程序中打

開了一個文件，而沒有用Close語句關閉這個文件，這時你通過程序中的End語句結

束了程序，Windows就會認為你打開的文件正在被一個程序所使用，導致你在資源

管理器中無法刪除該文件。在有些情況下，如果你只用End語句來結束程序，會導

致一些非常嚴重的后果，例如Windows會發出錯誤的信息，告訴你C盤損壞等等。


因此最好是自己編寫一個關閉子程序：

Public Sub Shutdown(Optional ByVal Force As Boolean = False)

Dim I As Long


On Error Resume Next


For I = Forms.Count - 1 to 0 Step -1

Unload Forms(I) ' Triggers QueryUnload and Form_Unload


' If we aren't in Force mode and the

' unload failed, stop the shutdown.

If Not Force Then

If Forms.Count > I then

Exit Sub

End If

End If

Next I


' If we are in Force mode OR all

' forms unloaded, close all files.

If Force Or (Forms.Count = 0) Then Close


' If we are in Force mode AND all

' forms not unloaded, end.

If Force Or (Forms.Count > 0) Then End

End Sub

原文轉自：http://www.anti-gravitydesign.com