程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 如何映射/中斷網絡磁盤

如何映射/中斷網絡磁盤

編輯:VB綜合教程

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

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

  

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved