让窗体始终保持最前

SKY定格

1. '把以下代码加入模块中
   
2. Private   Const   HWND_TOPMOST   =   -1
   
3. Private   Const   SWP_NOACTIVATE   =   &H10
   
4. Private   Const   SWP_SHOWWINDOW   =   &H40
   
5. Private   Const   SWP_HIDEWINDOW   =   &H80
   
6. Private   Const   SWP_NOZORDER   =   &H4
   
7. Private   Const   SWP_NOMOVE   =   &H2
   
8. Private   Const   SWP_NOREPOSITION   =   &H200
   
9. Private   Const   SWP_NOSIZE   =   &H1
   
10. Private   Declare   Function   SetWindowPos   Lib   "user32 "   (ByVal   hwnd   As   Long,   _
    
11.         ByVal   hWndInsertAfter   As   Long,   ByVal   x   As   Long,   ByVal   y   As   Long,   _
    
12.         ByVal   cx   As   Long,   ByVal   cy   As   Long,   ByVal   wFlags   As   Long)   As   Long
    
13. 'TopMostForm
    
14. '若Top=true，使窗口始终位于屏幕最上层
    
15. '当Top=false时，取消这一属性
    
16. Public   Sub   TopMostForm(f   As   Form,   Top   As   Boolean)
    
17.       If   Top   Then
    
18.             SetWindowPos   f.hwnd,   HWND_TOPMOST,   0,   0,   0,   0,   SWP_NOMOVE   +   SWP_NOSIZE
    
19.       Else
    
20.             SetWindowPos   f.hwnd,   0,   0,   0,   0,   0,   SWP_NOMOVE   +   SWP_NOSIZE
    
21.       End   If
    
22. End   Sub
    

复制代码