Visual Basic編程映射/中斷網絡磁盤

領測軟件測試網 　下面的程序段可以模擬【網上鄰居】及【我的電腦】中的【映射 / 中斷網絡磁盤】，就是出現【映射 / 中斷網絡磁盤】的問話框，讓使用者根據自己電腦的情形，來決定要連接的網絡磁盤要映射到自己的那一個磁盤？要中斷的又是那一個對應的磁盤？

　　請在聲明區中加入以下聲明及模組：

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.kjueaiud.com/