下面的程序段可以模擬【網(wǎng)上鄰居】及【我的電腦】中的【映射 / 中斷網(wǎng)絡(luò)磁盤(pán)】，就是出現(xiàn)【映射 / 中斷網(wǎng)絡(luò)磁盤(pán)】的問(wèn)話框，讓使用者根據(jù)自己電腦的情形，來(lái)決定要連接的網(wǎng)絡(luò)磁盤(pán)要映射到自己的那一個(gè)磁盤(pán)？要中斷的又是那一個(gè)對(duì)應(yīng)的磁盤(pán)？

　　請(qǐng)?jiān)诼暶鲄^(qū)中加入以下聲明及模組：

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()
　'出現(xiàn) 映射網(wǎng)絡(luò)磁盤(pán) 問(wèn)話框
　ShowMapDrives Me.hwnd
End Sub


Private Sub Command2_Click()
　'出現(xiàn) 中斷網(wǎng)絡(luò)磁盤(pán) 問(wèn)話框
　ShowUnMapDrives Me.hwnd
End Sub