Visual Basic编程映射/中断网络磁盘

　下面的程序段可以模拟【网上邻居】及【我的电脑】中的【映射 / 中断网络磁盘】，就是出现【映射 / 中断网络磁盘】的问话框，让使用者根据自己电脑的情形，来决定要连接的网络磁盘要映射到自己的那一个磁盘？要中断的又是那一个对应的磁盘？

　　请在声明区中加入以下声明及模组：

clearcase/" target="_blank" >cc66" width="90%" align="center" bgcolor="#dadacf" border="1">

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

 

原文转自：http://www.ltesting.net