悬挂式窗口

         在vb中有好长的代码来实现，在.Net中只一句   [窗体].TopMost=True 就能搞定。但在vb6.0中还要用啊。以下是源代码。

 

模块部分通用声明

1. Public Declare Function SetWindowPos Lib "user32" _
2. ( _
3.     ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
4.     ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
5.     ByVal cy As Long, ByVal wFlags As Long) As Long
6. '以上为API函数声明
7. Public Const HWND_TOPMOST = -1
8. Public Const SWP_NOMOVE = 
9. Public Const SWP_NOSIZE = 
10. Public Const SWP_FRAMECHANGED = 
11. 'The frame changed: send WM_NCCALCSIZE
12. Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
13. '以上为程序中用到的常量
15. Public Const HWND_BOTTOM = 1
16. Public Const HWND_BROADCAST = &HFFFF
17. Public Const HWND_DESKTOP = 0
18. Public Const HWND_NOTOPMOST = -2
19. Public Const HWND_TOP = 0
20. Public Const SWP_HIDEWINDOW = 
21. Public Const SWP_NOACTIVATE = 
22. Public Const SWP_NOCOPYBITS = 
23. Public Const SWP_NOOWNERZORDER = 
24. 'Don't do owner Z ordering
25. Public Const SWP_NOREDRAW = 
26. Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
27. Public Const SWP_NOZORDER = 
28. Public Const SWP_SHOWWINDOW = 
29. '以上常量声明在程序中没有使用
30. '可以试着在调用SetWindowPos函数时使用这些常量或它们的组合
31. '得到其他效果
32. Public Const Flags = SWP_DRAWFRAME Or SWP_NOMOVE Or SWP_NOSIZE

窗体部分，画一个checkbox，click事件如下：

1. Private Sub Check1_Click()
2.  Dim res As Long
3.  If Check1.Value = 1 Then
4.     res = SetWindowPos(Me.hwnd, HWND_TOPMOST, _
5.                         0, 0, 0, 0, Flags)
6.  Else
7.     res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, _
8.                         0, 0, 0, 0, Flags)
10.  End If
11. End Sub

OK。

源程序下载地址：http://vip-file.com/download/505f61563564/---------------.rar.html