我用VB生成了EXE文件 我想让生成的那个EXE文件打开后永远窗口置顶。

2025-05-18 06:29:28
推荐回答(1个)
回答1:

在窗体通用段加入代码:

 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_NOSIZE& = &H1   ' 保持窗口大小
Private Const SWP_NOMOVE& = &H2   ' 保持窗口位置