至顶网›软件频道 ›Visual Basic编程映射/中断网络磁盘

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

下面的程序段可以模拟【网上邻居】及【我的电脑】中的【映射 / 中断网络磁盘】

作者：佚名来源：梦蝶网 2007年10月14日

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

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

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

查看本文来源

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

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

业界热点: