|
Visual Basic编程映射/中断网络磁盘
2006-6-4 8:43:34 来源: 进入论坛 添加到收藏夹
下面的程序段可以模拟【网上邻居】及【我的电脑】中的【映射 / 中断网络磁盘】,就是出现【映射 / 中断网络磁盘】的问话框,让使用者根据自己电脑的情形,来决定要连接的网络磁盘要映射到自己的那一个磁盘?要中断的又是那一个对应的磁盘? 请在声明区中加入以下声明及模组: 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
|
|

精彩视频教程推荐
|
|

电子书下载
|
|
|
|
推荐阅读
视频教程
最新新闻
装机必备软件下载
|