主题 : [求助]VB程序如何实现Always on top功能

使用道具 | 复制链接 | 浏览器收藏 | 打印

心太

化身肥宅，躺平！

级别: 联盟成员

作者资料发送短消息

UID: 17
精华: 2
发帖: 6284
威望: 8 星
金钱: 290287 浮游币
贡献值: 7204 点
好评度: 8681 点
人气: 0 点
在线时间: 322(时)
注册时间: 2004-03-24
最后登录: 2024-03-16

楼主发表于: 2004-08-06 00:06

只看楼主 | 小中大

[求助]VB程序如何实现Always on top功能

偶搞不定

来自：顶端

回复引用

井上

级别: 模拟之星

作者资料发送短消息 QQ联系

UID: 204
精华: 0
发帖: 1720
威望: 0 星
金钱: 2424 浮游币
贡献值: 29 点
好评度: 1440 点
人气: 1 点
在线时间: 180(时)
注册时间: 2004-03-25
最后登录: 2008-03-23

沙发发表于: 2004-08-06 00:13

只看该作者 | 小中大

FORM里边不是有这个属性吗？

来自：顶端

回复引用

心太

化身肥宅，躺平！

级别: 联盟成员

作者资料发送短消息

UID: 17
精华: 2
发帖: 6284
威望: 8 星
金钱: 290287 浮游币
贡献值: 7204 点
好评度: 8681 点
人气: 0 点
在线时间: 322(时)
注册时间: 2004-03-24
最后登录: 2024-03-16

板凳发表于: 2004-08-06 00:14

只看该作者 | 小中大

就是没有我才来问的

来自：顶端

回复引用

Taburiss

枯れない花

级别: 论坛版主

作者资料发送短消息 QQ联系

UID: 11
精华: 0
发帖: 2266
威望: 8 星
金钱: 381185 浮游币
贡献值: 8813 点
好评度: 7896 点
人气: 1049 点
在线时间: 1384(时)
注册时间: 2004-03-24
最后登录: 2023-04-20

地板发表于: 2004-08-06 12:32

只看该作者 | 小中大

用SetWindowPos来实现~~~

先声明~~

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

然后~~~
SetWindowPos MyForm.hWnd, -1, 0, 0, 0, 0, &H1 Or &H2
myform随便添咯~~主要是那个-1~~~ 取消always on top的话，改成-2就好~~

呵呵~~从vb nicknacks现翻的~~