如何用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文件

※VB利用资源文件进行工作

※[转]vb高效编程(优化)

※VB阳历转阴历

※纯VB代码取得硬盘的物理序列号

※VB获得磁盘的文件系统

※做VB的,经常注册和反注册OCX控件和DLL链

※VB从程序中生成Exe文件

※VB6监视/操作剪贴板示例(VB6.0代码)

※VB6里自动提交/自动填表的一种相对通用的方案

※VB移动没有标题的窗体

※VB随机字母的函数

※VB删除带子文件夹和文件的文件夹

※VB怎样屏蔽 Alt+F4键

※VB 隐藏进程

※vb屏蔽文本框点右键时的弹出菜单

※VB手控Combobox的打开或收起

※在VB中INI文件的读写、删除(对中文支持很好)

※vb全局热键的写法(占很少的资源)

※vb取消文本框的粘贴功能

※VB常用文件操作类

※VB获取特殊文件夹

※VB获取windows各常用目录的函数(模块)

※VB生成太极图

※VB:常用内部函数大全,你会了几个呢?

※vb中SendMessage函数

※精简VB程序的代码

※VB:将数字转换为大写中文

※VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

※VB:读取及设定NumLock/CapsLock/ScrollLock的值

※VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※VB:将短文件名格式转成长文件名

※在vb中使用Iphlpapi.dll获取网络信息(上)

※在vb中使用Iphlpapi.dll获取网络信息(下)


更多精彩>>>

如何用VB编程实现关闭WINDOWS窗口?相关推荐

  1. Windows核心编程_关闭Windows

    下面介绍几种在Windows编程中关闭Windows的几种方式 首先介绍一个API ExitWindowsEx 这个API是WIndows下为开发人员提供的对操作系统睡眠的几种方式 API介绍: 函数 ...

  2. 关闭windows窗口时操作

    <script language="javascript">         var timer         var privatemsg         func ...

  3. c语言编程 0-6的数字对应星期,输入一个数字0~6 用中英文显示星期几 如何用vb编程...

    满意答案 stivr 推荐于 2017.09.28 采纳率:41%    等级:12 已帮助:28014人 新建VB工程,添加一个Text1和一个Command1,然后复制以下代码: Private ...

  4. c++mfc编写实验_零基础学Windows窗口图形界面编程(不用MFC),菜鸟学完变身高手,敢与专业媲美...

    又一门新的计算机课上线啦! 什么课?看下面视频(以下视频是本课第一讲) 用什么语言 我们声明一下(这个在我们课上也跟同学强调):不要为用什么语言掐架!那是初学者的行为,为高手所不为. 第二,我们这门课 ...

  5. Windows API 编程起始——创建一个窗口

    最初了解Windows api编程呢,就是先创建出一个最简洁的窗口,就如我们学习C/C++时的"Helloword"一样,这是进入windows编程大门的重要一个步,下面就开始吧. ...

  6. 打开计算机无法关闭窗口,电脑中“打开或关闭Windows功能”窗口出错无法显示怎么解决...

    ‍ 当我们想要开启或删除电脑系统中的某些应用时,需要打开控制面板中的"打开或关闭Windows功能"窗口来进行设置.但是,有的用户可能由于某些原因导致打开该窗口出错,无法显示里面 ...

  7. 【免杀前置课——Windows编程】五、窗口控件——什么是控件、Windolws 窗口两大类、Windows标准控件/通用控件、控件响应的接收、创建窗口制作不同控件

    窗口控件 WINDOW控件 什么是控件? 控件是常见的窗口上的交互元素.例如:一个按钮,一个复选框,一个列表框等.当控件的特定功能被触发后,会主动发送消息通知父窗口,父窗口可以通过发送消息给控件控制控 ...

  8. Win10计算机窗口空白,Win10系统下启用或关闭windows功能打开后显示空白如何解决...

    最近有win10系统用户在打开启用或关闭windows功能要进行操作的时候,发现打开后显示一片空白,导致无法任何操作,该怎么办呢,本文就给大家讲解一下Win10系统下启用或关闭windows功能打开后 ...

  9. 如何用命令行关闭Windows自动更新服务?

    很多银行业.金融企业或者政府部门,企业会规定内部员工的电脑不能轻易做更新操作,包括更新Windows系统和内部各种软件的升级,IT会对新发布的软件补丁进行测试,没有问题后通知大家统一更新. 在这种情况 ...

最新文章

  1. BootstrapVue UI组件
  2. mysql修改数据库历史_MySQL之操作数据库
  3. 内核下枚举进程 (二)ZwQuerySystemInformation
  4. android:scaletype=quot;fitxyquot;,Android ImageView的ScaleType属性
  5. 搜索数据android ui,搜索概览  |  Android 开发者  |  Android Developers
  6. 解读《美国国家BIM标准》– BIM能力成熟度模型(五)
  7. 怎么让你的网站快如飞?
  8. asp.net MVC使用treegrid——jqwidgets插件
  9. 基于php+mysql的 医院病房管理系统
  10. 腾讯云服务器用户名在哪里看,腾讯云服务器如何查看账号操作日志信息
  11. 剑客之剑——玄铁重剑(VS Code)
  12. 交换机和路由器的关系
  13. 文件上传、切片上传、秒传等
  14. 服务器性能参数:QPS、PV、IP
  15. Angular文件创建命令
  16. Altium Designer 21 原理图库元件模型的组成介绍以及简单的电阻电容元件模型的创建
  17. 干货|人声混音的4大技巧与思路 MZD Studios
  18. 专题研究 - 汽车车内声品质评价研究 (一)
  19. 用STM32F103C8T6实现红绿蓝LED流水灯
  20. Android - Warning:Not annotated parameter overrides @NonNull parameter

热门文章

  1. 阿里每天纳税超 1.4 亿元;余承东:苹果很难和华为竞争;三星 Note 7 爆炸案终审 | 极客头条...
  2. 马克·扎克伯格帝国的衰落
  3. 嘴上说着喜爱Java 9 ,身体却诚实地拥抱了Java 8
  4. 滴滴App突发Bug:滴滴一下,千元出发
  5. 苹果就降速门道歉,将 iPhone 电池更换价格下调至 218 元!
  6. html垂直线6,HTML的垂直线
  7. aix ntp 配置_aix下开启ntp服务
  8. 第 6 章 本地方法接口
  9. linux指令ls -1,linux命令1--ls
  10. oracle仲裁机制,仲裁逻辑设计要点