182.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 32 行

<p>如何映射 / 中断网络磁盘 </p>
<p></p>
<p>　　下面的程序段可以模拟【网上邻居】及【我的电脑】中的【映射 / 中断网络磁盘】，就是出现【映射 / 中断网络磁盘】的问话框，让使用者根据自己电脑的情形，来决定要连接的网络磁盘要映射到自己的那一个磁盘？要中断的又是那一个对应的磁盘？</p>
<p></p>
<p>　　请在声明区中加入以下声明及模组：</p>
<p></p>
<p>Private Declare Function WNetConnectionDialog Lib "mpr.dll" _</p>
<p>(ByVal hwnd As Long, ByVal dwType As Long) As Long</p>
<p>Private Declare Function WNetDisconnectDialog Lib "mpr.dll" _</p>
<p>(ByVal hwnd As Long, ByVal dwType As Long) As Long</p>
<p></p>
<p>Sub ShowMapDrives(hwnd As Long)</p>
<p>　WNetConnectionDialog hwnd, 1</p>
<p>End Sub</p>
<p></p>
<p>Sub ShowUnMapDrives(hwnd As Long)</p>
<p>　WNetDisconnectDialog hwnd, 1</p>
<p>End Sub</p>
<p></p>
<p>注释：程序中使用方式如下：</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>　注释：出现 映射网络磁盘 问话框</p>
<p>　ShowMapDrives Me.hwnd </p>
<p>End Sub</p>
<p></p>
<p></p>
<p>Private Sub Command2_Click()</p>
<p>　注释：出现 中断网络磁盘 问话框</p>
<p>　ShowUnMapDrives Me.hwnd </p>
<p>End Sub </p>