如何用代码实现关闭程序

[Edwin2260]

关闭程序，用什么命令

[FSoft]

可以使用SendMessage函数（API函数）发送WM_Close消息或WM_QUIT消息来实现！

[FSoft]

如：
Dim Lngnums as long
Lngnums=SendMessage(form1.hwnd,Wm_CLOSE,0,0)

[rainstormmaster]

end就行

[Edwin2260]

end 无法释放内存

[lgxysl]

GetWindowThreadProcessId formx, okkt4
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, okkt4) 'kernel32
TerminateProcess hProcess, 0



SendNotifyMessage

VB声明
Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
说明
向窗口发送一条消息。如目标窗口位于同调用方相同的线程内，则这个函数会表现为SendMessage函数。而且除非消息得到处理，否则函数不会返回。如目标窗口从属于一个不同的线程，则函数会立即返回
返回值
Long，TRUE表示成功，FALSE表示出错。会设置GetLastError
参数表
参数 类型及说明
hwnd Long，用于接收消息的一个窗口的句柄
msg Long，消息的标识符
wParam Long，具体由消息决定
lParam Long，具体由消息决定




TerminateProcess

VB声明
Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
说明
结束一个进程
在VB里使用
可以使用，但尽量不用
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hProcess Long，指定要中断的一个进程的句柄
uExitCode Long，进程的一个退出代码

[fulongbiao]

Dim Lngnums as long
Lngnums=SendMessage(form1.hwnd,Wm_CLOSE,0,0)

同意楼上的！

[sunzhiying888]

end 是结束应用程序

[踏平扶桑]

Dim Lngnums as long
Lngnums=SendMessage(form1.hwnd,Wm_CLOSE,0,0)

结束自己的程序用unload或者end就行了SendMessage可以结束别的应用程序。

[kimurakenshin]

end结束当前的程序后会自动释放内存.

[射天狼]

楼主的问题都没有说明白,大家就开始回答了:)

是关闭VB内部的窗口还是关闭外部的窗口??
内部的窗口用 UNLOAD 窗口名
如:
unload frmmain

外部的窗口要先取得窗口的句柄,然后发送WM_CLOSE消息关闭

[射天狼]

反对用END结束VB内容的窗口,会造成资源泄漏~~

[lrb820102]

同楼上