VB制作的程序运行时如何实现窗口置顶

发布网友 发布时间：2022-04-23 03:33

我来回答

共3个回答

热心网友 时间：2023-10-13 11:05

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)

Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
参数表： 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消息进入窗口，即使窗口的大小没有改变

声明：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

热心网友 时间：2023-10-13 11:05

你自己去问专业的人

热心网友 时间：2023-10-13 11:06

是指窗口始终在其他窗口最前方，还是指窗体在电脑桌面上方？