如何让一个VB窗口总是处于各窗口的最上层

最新推荐文章于 2023-03-21 15:03:30 发布

原创最新推荐文章于 2023-03-21 15:03:30 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #function #user

本文提供了一个使用VBA实现窗体始终位于最前的功能示例代码。通过调用Windows API函数SetWindowPos来调整窗体的位置，并设置窗体为最顶层，确保其在所有其他窗口之上显示。代码中还考虑了屏幕分辨率缩放的问题，通过除以Screen.TwipsPerPixelX/Y来获得正确的坐标值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码如下:
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 & _
　 Const HWND_TOPMOST = -1

Private Sub Form_Load()
   　    SetWindowPos Me.hwnd,HWND_TOPMOST,Me.Left/Screen.TwipsPerPixelX, _
              Me.Top/Screen.TwipsPerPixelY,Me.Width/Screen.TwipsPerPixelX, _
    　　 Form1.Height / Screen.TwipsPerPixelY, 0
End Sub