高珊珊是怎么回来的:VB中如何让窗口置顶

来源：百度文库编辑：神马品牌网时间：2024/04/29 10:42:27

如题
意思不是将FORM置于顶部，是说将FORM至于所有程序上！

新建立类模块：
Option Explicit
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)
窗口代码：
Dim rtn
'让窗口在顶层
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
'取消窗口在顶层
'rtn = SetWindowPos(F_V.hwnd, -2, 0, 0, 0, 0, 3)

在form属性里将top设置成0即可

VB中如何让窗口置顶如何让窗口置顶，像QQ登陆窗口一样如何让帖子在BBS中置顶? 怎么样让运行的软件窗口置顶? VB中如何锁定程序窗口大小 VB 中如何弹出一个浏览器窗口? VB中怎样让窗口最小化后放入系统任务栏？ vb中有没有办法让窗口至顶 vb中有没有办法让窗口背景色改为透明在MSN空间中如果有两个HTML编辑器如何让图片置顶