- '
- '标准对话框(SmDialog)
- '
- Option Explicit
- Private Const RESOURCE_CONNECTED As Long = &H1
- Private Const RESOURCE_GLOBALNET As Long = &H2
- Private Const RESOURCE_REMEMBERED As Long = &H3
- Private Const RESOURCEDISPLAYTYPE_DIRECTORY& =
- Private Const RESOURCEDISPLAYTYPE_DOMAIN& =
- Private Const RESOURCEDISPLAYTYPE_FILE& =
- Private Const RESOURCEDISPLAYTYPE_GENERIC& =
- Private Const RESOURCEDISPLAYTYPE_GROUP& =
- Private Const RESOURCEDISPLAYTYPE_NETWORK& =
- Private Const RESOURCEDISPLAYTYPE_ROOT& =
- Private Const RESOURCEDISPLAYTYPE_SERVER& =
- Private Const RESOURCEDISPLAYTYPE_SHARE& =
- Private Const RESOURCEDISPLAYTYPE_SHAREADMIN& =
- Private Const RESOURCETYPE_ANY As Long = &H0
- Private Const RESOURCETYPE_DISK As Long = &H1
- Private Const RESOURCETYPE_PRINT As Long = &H2
- Private Const RESOURCETYPE_UNKNOWN As Long = &HFFFF
- Private Const RESOURCEUSAGE_ALL As Long = &H0
- Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1
- Private Const RESOURCEUSAGE_CONTAINER As Long = &H2
- Private Const RESOURCEUSAGE_RESERVED As Long =
- Private Const NO_ERROR = 0
- Private Const ERROR_MORE_DATA = 234 'L // dderror
- Private Const RESOURCE_ENUM_ALL As Long =
- Private Type NETRESOURCE
- dwScope As Long
- dwType As Long
- dwDisplayType As Long
- dwUsage As Long
- pLocalName As Long
- pRemoteName As Long
- pComment As Long
- pProvider As Long
- End Type
- Private Type NETRESOURCE_REAL
- dwScope As Long
- dwType As Long
- dwDisplayType As Long
- dwUsage As Long
- sLocalName As String
- sRemoteName As String
- sComment As String
- sProvider As String
- End Type
- 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
- 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
- Private Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As NETRESOURCE, lpBufferSize As Long) As Long
- Private Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long
- Private Declare Function VarPtrAny Lib "vb40032.dll" Alias "VarPtr" (lpObject As Any) As Long
- Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (lpTo As Any, lpFrom As Any, ByVal lLen As Long)
- Private Declare Sub CopyMemByPtr Lib "kernel32" Alias "RtlMoveMemory" (ByVal lpTo As Long, ByVal lpFrom As Long, ByVal lLen As Long)
- Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Any) As Long
- Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Any) As Long
- '**********************************************************
- ''定义一个全局变量,用于保存字体的各种属性
- Public Type SmFontAttr
- FontName As String '字体名
- FontSize As Integer '字体大小
- FontBod As Boolean '是否黑体
- FontItalic As Boolean '是否斜体
- FontUnderLine As Boolean '是否下划线
- FontStrikeou As Boolean
- FontColor As Long
- WinHwnd As Long
- End Type
- Dim M_GetFont As SmFontAttr
- ''**系统常量------------------------------------------
- Private Const SWP_NOOWNERZORDER =
- Private Const SWP_HIDEWINDOW =
- Private Const SWP_NOACTIVATE =
- Private Const SWP_NOMOVE =
- Private Const SWP_NOREDRAW =
- Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
- Private Const SWP_NOSIZE =
- Private Const SWP_NOZORDER =
- Private Const SWP_SHOWWINDOW =
- 'Private Const RESOURCETYPE_DISK = &H1 '网络驱动器
- 'Private Const RESOURCETYPE_PRINT = &H2 '网络打印机
- '/------------------------------------------------------------
- Private Const NoError = 0
- Private Const CSIDL_DESKTOP =
- Private Const CSIDL_PROGRAMS =
- Private Const CSIDL_CONTROLS =
- Private Const CSIDL_PRINTERS =
- Private Const CSIDL_PERSONAL =
- Private Const CSIDL_FAVORITES =
- Private Const CSIDL_STARTUP =
- Private Const CSIDL_RECENT =
- Private Const CSIDL_SENDTO =
- Private Const CSIDL_BITBUCKET =
- Private Const CSIDL_STARTMENU =
VB各种标准对话框
最新推荐文章于 2020-10-09 09:24:08 发布
这篇博客介绍了如何在VB中使用标准对话框进行网络资源的操作,包括连接和断开网络驱动器、打印机。通过调用Windows API函数如WNetAddConnection2、WNetDisconnectDialog等,实现映射网络驱动器和打印机的对话框。此外,还涉及到网络资源的枚举和选择网上邻居的功能。
摘要由CSDN通过智能技术生成