如何用VB编程实现关闭WINDOWS窗口？

miaozk2006

于 2011-12-03 14:00:28 发布

834

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416510

版权

如何用VB编程实现关闭当前窗口的功能啊？
那位高手知道的帮帮忙啊？
：我说的是关闭当前的WINDOWS窗口比如说我刚刚打开了一个名为ABC 的文件夹窗口我现在想通过用VB编程来实现关闭该窗口的功能？请问该如何编写代码怎么让他实现啊？不的结束VB程序哦！

'1.首行看WINDOWS窗口的标题是什么
'2.把标题加到以下的程序代码,即可.

Option Explicit
Private Declare Function PostMessage Lib "User32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '发送消息，用来关闭指定程序
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '查找窗体

Private Const WM_CLOSE = &H10 '关闭程序

Private Sub Command1_Click()
    Dim winHwnd As Long
    Dim RetVal As Long
    winHwnd = FindWindow(vbNullString, "这里是你要关闭的WINDOWS窗口的标题") '找到窗口
    Debug.Print winHwnd '用来调试在立即窗口中输入winhnd

    If winHwnd <> 0 Then '这里是判断窗口是否启动如果窗口不存在那么值为0
        RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '关闭窗口
        If RetVal = 0 Then '如果窗口没有启动就弹出下面的信息
            MsgBox "错误！"
        Else
            MsgBox "成功关闭WINDOWS窗口！"
        End If

    Else
        MsgBox "WINDOWS窗口没有发现！"
    End If

End Sub
'代码结束

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件