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 Long
72.     Wid As Long
73.     hSubMenu As Long
74.     hbmpChecked As Long
75.     hbmpUnchecked As Long
76.     dwItemData As Long
77.     dwTypeData As String
78.     cc