vb api制作总在最前的窗体

最新推荐文章于 2011-02-18 00:45:00 发布

zwq19761

最新推荐文章于 2011-02-18 00:45:00 发布

阅读量1.1k

点赞数

分类专栏： zwq19761的VB6.0程序制作文章标签： api vb function 浏览器 user

本文链接：https://blog.csdn.net/zwq19761/article/details/192886

版权

这篇博客介绍了如何利用VB的API函数SetWindowPos，结合常量定义，实现在用户界面中使窗体始终保持在最前的效果。通过设置不同常量组合，可以控制窗体的显示状态。在Check1控件的Click事件中调用该API函数，根据Check1的状态改变窗体的前后位置。

摘要由CSDN通过智能技术生成

第一步使用VB打开工程如图

第二步在工程中窗体中加入check控件
第三步:添加模块1,在其中使用外界程序中的API浏览器添加如下代码
Public 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
'以上为API函数声明
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_FRAMECHANGED = &H20
'The frame changed: send WM_NCCALCSIZE
Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
'以上为程序中用到的常量

Public Const HWND_BOTTOM = 1
Public Const HWND_BROADCAST = &HFFFF&
Public Const HWND_DESKTOP = 0
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOP = 0
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_NOACTIVATE