視窗關閉時，vb 如何刪除根目錄中的 1 個 OCX 檔案？ 20

private sub form_queryunload(cancel as integer, unloadmode as integer)

dim s as string

s = left(, 2) '它所在的分割槽的根目錄，不帶 “”。

s = environ("systemroot") '系統的根目錄，不帶 “”。

kill s & "\" &

end sub

刪除根目錄有兩種方法，選擇權在你！

您說的是在表單關閉時觸發事件（刪除，然後也可以新增此程式。

在表單的解除安裝事件中，只是在點選關閉後以不同的順序觸發，應該是先查詢解除安裝，最後解除安裝，如果在表單中指定了cancel=true，則不會發生表單解除安裝; 在 VB2008 中，這兩個事件不再可用，取而代之的是“formclosing”和“formclosed”事件。

直接解除安裝表單：解除安裝表單名稱。

讓表單在後台執行，但不顯示：表單名稱。 hide

“解除安裝我”（Unload Me） 關閉當前視窗。

VBMODAL 模式顯示。

非模態顯示。

兩行**就可以了。

unload me

Form2 是要開啟的視窗。

在啟動視窗的屬性或 form-unload 事件中將 cancel 值設定為 true關閉它不會退出，相反的情況將以最後一種形式完成。

您可以通過將 end 命令新增到最後乙個窗體關閉事件來結束程式。

你不知道如何關閉，程式應該同時完成

1.新增按鈕關閉：在主表單按鈕中寫end2**，按右上角的x關閉，需要：

private sub mdiform_unload(cancel as integer)

endend sub

關閉所有視窗並使用 end 命令。

在視窗 2 上建立乙個按鈕以定義單擊屬性。

form1_click()

在 vb 的根目錄下？

它可以放在編譯的執行器目錄中。

問題補充：我曾經寫過，form2 是用來實現資料取樣和顯示實時曲線的，然後把它關掉'取消 form2 的閉包 這將隱藏 form2，當您需要呼叫它時，您只需要使用以下 **。

隱藏自己，但不要放棄。

展示自己。

將 **：“ 新增到解除安裝事件中

cancel=1

在 form2 上放乙個計時器，interval 屬性為 3000，愚蠢的灌木叢 enabled=false

然後在 form2 失敗載入事件中，寫成：以銀櫻花為例。

寫入計時器事件：

unload form2

兩行**就可以了。

unload me

Form2 是要開啟的視窗。