请问如何才能使VB的窗体在桌面上always on top ?

zss1638 2000-02-15 07:31:00
...全文
180 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Tony_Yuan 2000-02-17
  • 打赏
  • 举报
回复
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

Public Const HWND_TOPMOST = -1


SetWindowPos frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, 0
peacock 2000-02-17
  • 打赏
  • 举报
回复
用Tony_Yuan的方法实现的是让窗口位居所有程序的的上面,还有另外一种方法可以让窗口位居一个应用程序中任何一个窗口的上面,比如你的应用程序有三个窗口,分别为:
Form1、Form2和Form3,具体如下:
'让Form2位居Form1上:
Form2.Show, Form1
'让Form2位居Form3上:
Form2.Show, Form3
就这样,很简单
WHQ 2000-02-16
  • 打赏
  • 举报
回复
窗口的扩展风格加上WS_EX_TOPMOST
dongdong 2000-02-16
  • 打赏
  • 举报
回复
使用Windows API函数,声明如下:
Public 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
Lin 2000-02-15
  • 打赏
  • 举报
回复
使用Windows API函数SetWindowPos(..., HWND_TOPMOST, ...)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧