社区
VB基础类
帖子详情
如果另一个程序也是“总在最前”,那么怎样让我的程序在它之前???-----------------------------------------------------急 + + !
WangTiger
2000-08-25 12:20:00
加精
谢谢!
...全文
388
6
打赏
收藏
如果另一个程序也是“总在最前”,那么怎样让我的程序在它之前???-----------------------------------------------------急 + + !
谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Maxwell
2000-08-27
打赏
举报
回复
有一个函数是改变窗口Z-Order的,常居顶端的窗口也是有顺序的,设置到顶端就行了.从dandycheung的那个函数SetForegroundWindow()开始查.
OUYAN
2000-08-26
打赏
举报
回复
'声明:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1 '前
Private Const HWND_NOTOPMOST = -2 '普
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
'代码:放在form1_load()中
SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS'前
prefix
2000-08-25
打赏
举报
回复
印象中好像Always On Top有级别之分,但想不起来怎么设置。比如任务栏就比一般的Always On Top级别高,但它不是最高,记得好像是第二高还是第三高,还可以设置为更高的。但已经是很久以前的事的,不太清楚,但应该有这回事。
dandycheung
2000-08-25
打赏
举报
回复
简单来讲,Windows 的窗口分为两类:一类为高居顶端,另一类为正常窗口。但如果有多个窗口为高居顶端窗口,则其相互之间的覆盖关系同正常窗口相同。如果你要一直保证你的窗口也居于其他同类窗口之上,则必须对你的窗口周期性调用SetForegroundWindow(),但这样将干扰其他程序正常运行。另外,你可以仔细钻研一下微软的有关于Z-Order方面的资料,也许能另外找到解决办法。
WangTiger
2000-08-25
打赏
举报
回复
不行!
用你的OICQ和这个程序比比,就知道了。
shines77
2000-08-25
打赏
举报
回复
此段源程序一定能解决你的问题!:
Option Explicit
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
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const FormFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Public Sub WindowAlwaysOnTop(Form_Hwnd As Long, vStaus As Boolean)
Dim Dummy As Long
If vStaus Then
' 常在顶端
Dummy = SetWindowPos(Form_Hwnd, HWND_TOPMOST, 0, 0, 0, 0, FormFlags)
Else
' 不常在顶端
Dummy = SetWindowPos(Form_Hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FormFlags)
End If
End Sub
Private Sub Form_Load()
' 举例
WindowAlwaysOnTop Me.hwnd, True
End Sub
郭子
小
程序
云开发实战:通用企业产品信息展示小
程序
2 课程内容 本课程将实现
一个
完整功能的企业产品展示小
程序
,
之前
有人找我开发
一个
农用拖拉机企业展示的小
程序
,说是要用云开发来做,正好我
之前
没用过云开发,都是自己搭建后端API以及管理后台来开发,因此想着...
10分钟实现微信小
程序
支付功能
核心代码就下面这些 一,创建
一个
云开发小
程序
关于如何创建云开发小
程序
,这里我就不再做具体讲解。不知道怎么创建云开发小
程序
的同学,可以去翻看我
之前
的文章,或者看下我录制的视频:...
编程可以这样学
《编程可以这样学》提出一种全新的学习理念,在我们去窥探各种语言或技术的细枝末节
之前
,老张会带着大家先去
程序
员的世界里遨游一圈:C语言只是用来写黑底白字的控制台
程序
吗?算法在游戏开发中有什么用?学校开设...
小
程序
商城+后台管理系统
主要包括用户管理、角色管理、部门管理、菜单管 理、定时任务、文件上传、数据权限、Redis 缓存、前后台统一异常处理等系统通用功能,还拥有一套完整的商城后台管理系统、微信小
程序
源码、小
程序
接口服务、以及完善...
Nuxt.js+BootstrapVue+Json-server 基础入门到项目实战
Nuxt.js 是
一个
Node
程序
,基于vue.js开发的一套服务端渲染的框架,必须使用 Node 环境。我们对 Nuxt.js 应用的访问,实际上是在访问这个 Node.js
程序
的路由,
程序
输出首屏渲染内容 + 用以重新渲染的 SPA 的脚本...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章