您的位置: 乌海信息港 > 故事

VisualBasic编程映射中断网络磁盘

发布时间:2019-11-05 12:50:30

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

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

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查看本文来源

广州玛莱妇产医院乔莊
贵州癫痫病好的医院
遵义治疗癫痫的专科医院
四川癫痫病医院费用
西藏治疗前列腺炎费用
猜你会喜欢的
猜你会喜欢的