让窗口一直在上面 (转)
http://www.tongyi .NET 作者:天涯风铃 点击:419
很多流行软件都有这样一个选项:Always on Top。它可以让窗口在最上面,别的窗口不能覆盖它。我们在 VB 中,可以使用下面的方法来实现:
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOCOPYBITS = &H80
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Private Const HWND_TOP = 0
Private Const HWND_BOTTOM = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private mbOnTop As Boolean
Private Property Let OnTop (Setting As Boolean)
if Setting Then
SetWindowPos hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
mbOnTop = Setting
End Property
Private Property Get OnTop() As Boolean
'Return the private variable set in Property Let
OnTop = mbOnTop
End Property
调用 OnTop=True 即可让窗口 Always On Top。
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-980631/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10748419/viewspace-980631/
让窗口一直在上面 (转)相关推荐
- idea中如何打开RunDashboard窗口,微服务最实用设置
idea中如何打开RunDashboard窗口 找到.idea目录,打开workspace.xml,搜索RunDashboard,找到该段配置,加入下面注释中的代码 <component nam ...
- 使用JS/Jquery获得父窗口的几个方法(笔记)
<pre name="code" class="javascript">取父窗口的元素方法:$(selector, window.parent.do ...
- leetcode 30. Substring with Concatenation of All Words 与所有单词相关联的字串 滑动窗口法
题目描述 给定一个字符串 s 和一些长度相同的单词 words.在 s 中找出可以恰好串联 words 中所有单词的子串的起始位置. You are given a string, s, and a ...
- leetcode 567. Permutation in String 字符串的排列 滑动窗口法
题目 给定两个字符串 s1 和 s2,写一个函数来判断 s2 是否包含 s1 的排列.换句话说,第一个字符串的排列之一是第二个字符串的子串. 示例1:输入: s1 = "ab" s ...
- leetcode Longest Substring with At Most Two Distinct Characters 滑动窗口法
题目解析 代码如下 题目解析 这一题是一道会员的题目,题目介绍如下: Given a string, find the length of the longest substring T that c ...
- leetcode 3. Longest Substring Without Repeating Characters 最长非重复子串的长度 滑动窗口法
题目链接 根据我们之前介绍的滑动窗口法的解法: 滑动窗口法详解 leetcode 438. Find All Anagrams in a String 滑动窗口法 这题,我们不难解决,使用之前的模板. ...
- leetcode 438. Find All Anagrams in a String 滑动窗口法
题目链接 解析 主要使用滑动窗口法解题,需要好好体会的是中间的两个判断couter的用法,这里很巧妙. 如果想了解更多的滑动窗口法内容,看这里: 滑动窗口法详解 代码 from collections ...
- vmware虚拟机怎么让窗口自动调整大小适应主机
vmware是一款非常好用的虚拟机,大部分用户都会用vmware安装各种操作系统,安装后可能会出现一个问题,就是主机屏幕太小,无法完整显示VMware虚拟机界面,这时候就可以设置让VMware自动适应 ...
- 实战清除电脑上恶意弹出广告窗口
实战清除电脑上恶意弹出广告窗口 当你碰到电脑桌面右下角时不时弹出广告,如游戏推广.商品广告等,怎么删也删不掉,这是因为用户不小心安装有捆绑广告推广的软件,系统被静默安装了恶意木马广告,这不仅仅是影响用 ...
- 2021年大数据Flink(二十一):案例三 会话窗口
目录 案例三 会话窗口 需求 代码实现 案例三 会话窗口 需求 设置会话超时时间为10s,10s内没有数据到来,则触发上个窗口的计算 代码实现 package cn.it.window;import ...
最新文章
- mysql 8.0免安装配置_Mysql8.0免安装包配置方法
- Android 打包流程
- 【PAT乙级】1040 有几个PAT (25 分)
- android在特定时间,如何在Android Oreo的特定时间在Android上发出通知?
- ssh linux 配置文件详解,Linux ssh服务常用配置的详细描述及建议配置
- java二叉树的序列化_二叉树的序列化和反序列化
- 给我一对公钥和私钥,我就能破解此RSA
- 自己动手用electron+vue开发博客园文章编辑器客户端【一】
- 字体变换大小的html代码,JQuery 实时改变网页字体大小的代码
- 2022-2027年中国金融科技行业市场调研及未来发展趋势预测报告
- 推荐两个好用的小工具
- 【算法】leetcode-838 推多米诺
- 全国各地电台FM.ini汇总
- 2022年最新美股上市SaaS公司前50名排行榜单
- 魔镜连接本地mysql_打造属于你的树莓派“魔镜”—硬件篇
- CSS3精选内容通俗易懂
- 星空璀璨,时光流逝,分享技术,记录生活——2016年11月22日
- windows手机改为Android,如何在平板电脑上把windows系统变成安卓系统
- VSCode+Marp:用Markdown做幻灯片-宋森安(基础篇)
- 请记住内核中这个勤劳的监测卫士---Watchdog(Soft lockup篇)
热门文章
- tomcat出现 “Deploying web application directory”问题,实际上只是暂时卡住了而已
- [STM32F7] 【分享评测】移植JAM Player到Nucleo-STM32F767ZI-144
- 本地数据迁移阿里云oss方法
- 变速自行车的变速、省力原理与窍门
- win10系统C盘瘦身记录
- 从Android studio 2.3.3 升级到 3.1.3最新版本 导入旧项目遇到的诸多错误,终极解决办法!!
- Linux Framebuffer驱动剖析之一—软件需求
- 简述GPRS模块和GSM模块之间的区别
- 串口---串口通信数据位长度对传输数据的影响
- 索尼mcx500切换台说明书_索尼MCX500特技切换台