窗口关闭时，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 是要打开的窗口。