分享
 
 
 

VB调用API函数使窗口保持在最上层

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

比较简单,但是这篇说的倒是很详细

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

---- hWnd变元是窗口的句柄;x,y是窗口的左上角的坐标;cx、cy是窗口宽度和高度;hWndInsertAfter变元是窗口清单中hWnd窗口前面的窗口句柄,有四个可选值:

序号 可 选 值 作 用

1 HWND_BOTTOM 把窗口放在窗口清单的底部

2 HWND_TOP 把窗口放在窗口清单的字符顺序的顶部

3 HWND_TOPMOST 把窗口放在窗口清单的顶部

4 HWND_NOTOPMOST 把窗口放在窗口清单的顶部,最上层窗口之下

---- WFlags变元为整型值,有八个可选值:

序号 可 选 值 作 用

1 SWP_DRAWFRAME 在窗口周围画一个方框

2 SWP_HIDEWINDOW 隐藏窗口

3 SWP_NOACTIVATE 不激活窗口

4 SWP_NOMOVE 保持窗口当前位置

5 SWP_NOREDRAW 窗口不自动重画

6 SWP_NOSIZE 保持窗口当前尺寸

7 SWP_NOZORDER 保持窗口在窗口清单中的当前位置

8 SWP_SHOWWINDOW 显示窗口

---- 下面的例子程序Test演示了对函数中的以上7个变元作正确的选择后,应用程序运行后窗口总可保持在最上层,程序清单如下:

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

Private Const HWND_TOPMOST = -1

Private Const SWP_SHOWWINDOWS = &H40

Private Sub Form_Load()

Dim retValue As Long

retValue = SetWindowPos(Me.hwnd,

HWND_TOPMOST, Me.CurrentX, _

Me.CurrentY, 300, 300, SWP_SHOWWINDOWS)

End Sub

---- 备注:编写函数声明时,整个函数声明须在一行中写完,不可提行。一般是自动从系统中得到函数声明,方法是从VB的外接程序管理中启动“API 浏览”程序,在“API 浏览”程序中找到所需的函数声明,然后复制到VB代码中。

关于: SetWindowPos() 函数的详细解释,也许用的着。

【VB声明】

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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

【说明】

这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似,只是它的作用是立即表现出来的(在vb里使用:针对vb窗体,如它们在win32下屏蔽或最小化,则需重设最顶部状态。如有必要,请用一个子类处理模块来重设最顶部状态

【返回值】

Long,非零表示成功,零表示失败。会设置GetLastError

【备注】

窗口成为最顶级窗口后,它下属的所有窗口也会进入最顶级。一旦将其设为非最顶级,则它的所有下属和物主窗口也会转为非最顶级。Z序列用垂直于屏幕的一根假想Z轴量化这种从顶部到底部排列的窗口顺序

【参数表】

hwnd ----------- Long,欲定位的窗口

hWndInsertAfter - Long,窗口句柄。在窗口列表中,窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一:

HWND_BOTTOM

将窗口置于窗口列表底部

HWND_TOP

将窗口置于Z序列的顶部;Z序列代表在分级结构中,窗口针对一个给定级别的窗口显示的顺序

HWND_TOPMOST

将窗口置于列表顶部,并位于任何最顶部窗口的前面

HWND_NOTOPMOST

将窗口置于列表顶部,并位于任何最顶部窗口的后面

x -------------- Long,窗口新的x坐标。如hwnd是一个子窗口,则x用父窗口的客户区坐标表示

y -------------- Long,窗口新的y坐标。如hwnd是一个子窗口,则y用父窗口的客户区坐标表示

cx ------------- Long,指定新的窗口宽度

cy ------------- Long,指定新的窗口高度

wFlags --------- Long,包含了旗标的一个整数

SWP_DRAWFRAME

围绕窗口画一个框

SWP_HIDEWINDOW

隐藏窗口

SWP_NOACTIVATE

不激活窗口

SWP_NOMOVE

保持当前位置(x和y设定将被忽略)

SWP_NOREDRAW

窗口不自动重画

SWP_NOSIZE

保持当前大小(cx和cy会被忽略)

SWP_NOZORDER

保持窗口在列表的当前位置(hWndInsertAfter将被忽略)

SWP_SHOWWINDOW

显示窗口

SWP_FRAMECHANGED

强迫一条WM_NCCALCSIZE消息进入窗口,即使窗口的大小没有改变

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有