SKY外语计算机学习

标题: 让窗体始终保持最前 [打印本页]
作者: SKY定格    时间: 2012-5-14 20:07
标题: 让窗体始终保持最前
本帖最后由 sky_yx 于 2015-12-30 14:22 编辑
  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
复制代码






欢迎光临 SKY外语计算机学习 (http://skywj.com/) Powered by Discuz! X2.5