Question

我用VB做出的exe程序，为什么退出后仍然在后台运行？

退出 那个按钮 用的end语句

可是退出后，开任务管理器，这个程序仍然在进程里。

为什么？

应该怎么写才对？

Answer 1

你可以用xueTr这样的工具看一下，你的exe程序运行时的线程有几个（正常的vb程序应该只有1个），如果有多个的话，可能是其他程序插入（如杀软）。你按下exe中程序退出按钮，在xueTr中刷新线程显示，看是否还有线程。（这是我猜测的，不一定是这个情况）
--------------------------------------------------------------------------------
解 决 方 案
不管怎样，你可以尝试不用END（当然也不是楼上说的UNLOAD），可以尝试API：
'TerminateProcess
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Sub EndProg()
TerminateProcess GetCurrentProcess, 0
End Sub

'以后不用End了，直接调用EndProg

'再问一句，在VB中end正常吗？

'如果用了这个API，VB调试可就不方便了，这个API会直接把VB给干掉的

Answer 2

Private Sub Command1_Click()
'首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel 11.0 Object Library
'其中11.0是不一定的，要看你计算机安装的OFFICE版本而定
Dim xlsApp As Excel.Application '声明对象变量
Set xlsApp = Excel.Application '实例化对象
xlsApp.Visible = False '使Excel隐藏不可见
xlsApp.Workbooks.Open ("C:\book1.xls") '打开EXCEL文件
'这里开始就是你录制的VBA代码
'我在这里举1个例子，主要是告诉你要明确操作的是哪个表
xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value = "您好！" '在指定表的单元格编辑文本
xlsApp.ActiveWorkbook.Close savechanges:=True '关闭活动工作簿同时保存对它的更改。
xlsApp.Quit '关闭EXCELL
Set xlsApp = Nothing '释放资源
End Sub

最后三步，很关键。

Answer 3

很简单。。你把退出按钮的end语句换成unload就可以了。。留邮箱可以发个实例给你