标题:小妹向大家求助,希望能帮帮小妹
只看楼主
hanyucq
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2005-6-3
 问题点数:0 回复次数:3 
小妹向大家求助,希望能帮帮小妹
现在很多游戏和电影播放程序的全屏窗口的都是置顶的,我想把我程序的窗口置于所有程序的窗口之上,怎么办?
谢谢!
搜索更多相关主题的帖子: 小妹 
2005-06-03 08:50
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
得分:0 
用API函数。

五月的雪
2005-06-14 17:28
程序人
Rank: 2
等 级:新手上路
威 望:3
帖 子:195
专家分:0
注 册:2005-4-5
得分:0 
vb里面实现起来比较麻烦,你可以在网上查一下原代码,主要的就是用api函数,
比如,setwindowpos,你可以看一下msdn

洒家靠!悟空:我给你说过N遍了,叫你不要说我帅!虽然我承认我很帅!!
2005-06-14 17:50
cbhwsl
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2005-9-30
得分:0 

首先在窗体添加一个命令按钮

窗体代码如下: 'SetWindowPos 函数声明 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 Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2

Private Sub Command1_Click() SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, &H1 Or &H2 End Sub

Private Sub Form_Load() SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End Sub

[此贴子已经被作者于2005-9-30 17:32:21编辑过]

2005-09-30 17:29



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-19974-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026108 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved