VB中窗体操作.

2. '
3. '窗口操作(SmWinCtrl)
4. '
6. Option Explicit
8. Private Const HWND_TOP = 0
9. Private Const HWND_BOTTOM = 1
10. Private Const HWND_TOPMOST = -1
11. Private Const HWND_NOTOPMOST = -2
13. Private Const SWP_NOSIZE = 
14. Private Const SWP_NOMOVE = 
15. Private Const SWP_NOZORDER = 
16. Private Const SWP_NOREDRAW = 
17. '/*以下常数在 ShowWindow中应用*
18. Private Const SW_SHOWMAXIMIZED = 3
19. Private Const SW_HIDE = 0
20. Private Const SW_MINIMIZE = 6
21. Private Const SW_RESTORE = 9
22. Private Const SW_SHOW = 5
23. Private Const SW_SHOWMINIMIZED = 2
24. Private Const SW_SHOWMINNOACTIVE = 7
25. Private Const SW_SHOWNA = 8
26. Private Const SW_SHOWNOACTIVATE = 4
27. Private Const SW_SHOWNORMAL = 1
28. '/====================================
29. '/隐藏窗口，活动状态给令一个窗口
30. '/  SW_HIDE
31. '/  最小化窗口，活动状态给令一个窗口
32. '/  SW_MINIMIZE
33. '/ 用原来的大小和位置显示一个窗口，同时令其进入活动状态
34. '/  SW_RESTORE
35. '/用当前的大小和位置显示一个窗口，同时令其进入活动状态
36. '/  SW_SHOW
37. '/  最大化窗口，并将其激活
38. '/ SW_SHOWMAXIMIZED
39. '/  最小化窗口，并将其激活
40. '/  SW_SHOWMINIMIZED
41. '/  最小化一个窗口，同时不改变活动窗口
42. '/  SW_SHOWMINNOACTIVE
43. '/  用当前的大小和位置显示一个窗口，不改变活动窗口
44. '/ SW_SHOWNA
45. '/ 用最近的大小和位置显示一个窗口，同时不改变活动窗口
46. '/ SW_SHOWNOACTIVATE
47. '/  与SW_RESTORE相同
48. '/SW_SHOWNORMAL
49. Private Const xMenuID = 10
50. Private Const WM_NCACTIVATE = 
51. '/********************************************
52. '/MENU ID
53. Private Const SC_RESTORE = &HF120&  '还原
54. Private Const SC_MOVE = &HF010& '移动
55. Private Const SC_SIZE = &HF000& '大小
56. Private Const SC_MINIMIZE = &HF020& '缩到最小
57. Private Const SC_MAXIMIZE = &HF030& '放到最大
58. Private Const SC_CLOSE = &HF060& '关闭
59. '/********************************************
61. Private Const MIIM_STATE = &H1
62. Private Const MIIM_ID = &H2
64. Private Const MFS_GRAYED = &H3
65. Private Const MFS_CHECKED = &H8
67. Private Type MENUITEMINFO
68.     cbSize As Long
69.     fMask As Long
70.     fType As Long
71.     fState As