VB各种标准对话框

2. '
3. '标准对话框(SmDialog)
4. '
6. Option Explicit
8. Private Const RESOURCE_CONNECTED As Long = &H1
9. Private Const RESOURCE_GLOBALNET As Long = &H2
10. Private Const RESOURCE_REMEMBERED As Long = &H3
12. Private Const RESOURCEDISPLAYTYPE_DIRECTORY& = 
13. Private Const RESOURCEDISPLAYTYPE_DOMAIN& = 
14. Private Const RESOURCEDISPLAYTYPE_FILE& = 
15. Private Const RESOURCEDISPLAYTYPE_GENERIC& = 
16. Private Const RESOURCEDISPLAYTYPE_GROUP& = 
17. Private Const RESOURCEDISPLAYTYPE_NETWORK& = 
18. Private Const RESOURCEDISPLAYTYPE_ROOT& = 
19. Private Const RESOURCEDISPLAYTYPE_SERVER& = 
20. Private Const RESOURCEDISPLAYTYPE_SHARE& = 
21. Private Const RESOURCEDISPLAYTYPE_SHAREADMIN& = 
22. Private Const RESOURCETYPE_ANY As Long = &H0
23. Private Const RESOURCETYPE_DISK As Long = &H1
24. Private Const RESOURCETYPE_PRINT As Long = &H2
25. Private Const RESOURCETYPE_UNKNOWN As Long = &HFFFF
26. Private Const RESOURCEUSAGE_ALL As Long = &H0
27. Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1
28. Private Const RESOURCEUSAGE_CONTAINER As Long = &H2
29. Private Const RESOURCEUSAGE_RESERVED As Long = 
30. Private Const NO_ERROR = 0
31. Private Const ERROR_MORE_DATA = 234 'L    // dderror
32. Private Const RESOURCE_ENUM_ALL As Long = 
33. Private Type NETRESOURCE
34.     dwScope As Long
35.     dwType As Long
36.     dwDisplayType As Long
37.     dwUsage As Long
38.     pLocalName As Long
39.     pRemoteName As Long
40.     pComment As Long
41.     pProvider As Long
42. End Type
43. Private Type NETRESOURCE_REAL
44.     dwScope As Long
45.     dwType As Long
46.     dwDisplayType As Long
47.     dwUsage As Long
48.     sLocalName As String
49.     sRemoteName As String
50.     sComment As String
51.     sProvider As String
52. End Type
53. Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
54. Private Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As Any, lphEnum As Long) As Long
55. Private Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As NETRESOURCE, lpBufferSize As Long) As Long
56. Private Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long
57. Private Declare Function VarPtrAny Lib "vb40032.dll" Alias "VarPtr" (lpObject As Any) As Long
58. Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (lpTo As Any, lpFrom As Any, ByVal lLen As Long)
59. Private Declare Sub CopyMemByPtr Lib "kernel32" Alias "RtlMoveMemory" (ByVal lpTo As Long, ByVal lpFrom As Long, ByVal lLen As Long)
60. Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Any) As Long
61. Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Any) As Long
62. '**********************************************************
64. ''定义一个全局变量,用于保存字体的各种属性
65. Public Type SmFontAttr
66.   FontName As String       '字体名
67.   FontSize As Integer      '字体大小
68.   FontBod As Boolean       '是否黑体
69.   FontItalic As Boolean    '是否斜体
70.   FontUnderLine As Boolean '是否下划线
71.   FontStrikeou As Boolean
72.   FontColor As Long
73.   WinHwnd As Long
74. End Type
76. Dim M_GetFont As SmFontAttr
78. ''**系统常量------------------------------------------
79. Private Const SWP_NOOWNERZORDER = 
80. Private Const SWP_HIDEWINDOW = 
81. Private Const SWP_NOACTIVATE = 
82. Private Const SWP_NOMOVE = 
83. Private Const SWP_NOREDRAW = 
84. Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
85. Private Const SWP_NOSIZE = 
86. Private Const SWP_NOZORDER = 
87. Private Const SWP_SHOWWINDOW = 
88. 'Private Const RESOURCETYPE_DISK = &H1  '网络驱动器
89. 'Private Const RESOURCETYPE_PRINT = &H2 '网络打印机
90. '/------------------------------------------------------------
91. Private Const NoError = 0
92. Private Const CSIDL_DESKTOP = 
93. Private Const CSIDL_PROGRAMS = 
94. Private Const CSIDL_CONTROLS = 
95. Private Const CSIDL_PRINTERS = 
96. Private Const CSIDL_PERSONAL = 
97. Private Const CSIDL_FAVORITES = 
98. Private Const CSIDL_STARTUP = 
99. Private Const CSIDL_RECENT = 
100. Private Const CSIDL_SENDTO = 
101. Private Const CSIDL_BITBUCKET = 
102. Private Const CSIDL_STARTMENU =