下面的程序段可以模拟【网上邻居】及【我的电脑】中的【映射 / 中断网络磁盘】，就是出现【映射 / 中断网络磁盘】的问话框，让使用者根据自己电脑的情形，来决定要连接的网络磁盘要映射到自己的那一个磁盘？要中断的又是那一个对应的磁盘？
请在声明区中加入以下声明及模组：
Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd _
As Long, ByVal dwType As Long) As Long
Private Declare Function WNetDisconnectDialog Lib "mpr.dll" _
(ByVal hwnd As Long, ByVal dwType As Long) As Long
Sub ShowMapDrives(hwnd As Long)
WNetConnectionDialog hwnd, 1
End Sub
Sub ShowUnMapDrives(hwnd As Long)
WNetDisconnectDialog hwnd, 1
End Sub
’程序中使用方式如下：
Private Sub Command1_Click()
’出现 映射网络磁盘 问话框
ShowMapDrives Me.hwnd
End Sub
Private Sub Command2_Click()
’出现 中断网络磁盘 问话框
ShowUnMapDrives Me.hwnd
End Sub |
相关文章
Office2007中用格式刷快速编辑数据格式
VB中用第三方控件打造OfficeXP菜单
VB中利用第三方控件实现软件在线升级
VB中利用ccrpHotKey控件设置热键
VisualBasic编程映射_中断网络磁盘
用VisualBasic实现undo功能
用VB设计M 信息群发软件
导出EXCEL_FOXPRO_PRODOX格式表
有关VB记录类型变量
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛