快速调用“网络资源映射对话框”

时　间:2008-05-04 08:13:06
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:快速调用“网络资源映射对话框” 
正　文:

快速调用“网络资源映射对话框” 
　　在局域网上，我们经常将服务器上的一个共享目录映射为本地一个盘符，从而能否方便快速地访问网络资源。在VB中，可以用很少的代码就调出映射对话框，请看下面的代码： 

　　'声明API函数 

　　Private Declare Function WNetConnectionDialog Lib "mpr.dll" _ 

　　(ByVal hWnd As Long, ByVal dwType As Long) As Long 

　　'网络资源映射对话框 

　　Private Sub ShowMapDrives(hWnd As Long) 

　　 WNetConnectionDialog hWnd, 1 

　　End Sub 

　　'调用例程 

　　Private Sub Command2_Click() 

　　 Call ShowMapDrives(Me.hWnd) 

　　End Sub 

　　运行程序，下面就是最终的结果： 

 
　　我们注意到，在上面的代码中，如果将“WNetConnectionDialog hWnd, 1”一行中的1修改为2，执行后将出现打印端口映射对话框： 

 
　　没有想到吧！竟然能如此方便的获取网络资源！ 

总结 
　　以上列举了几个调用系统对话框的例子，大家可以看到，全部都使用到了windows的API函数。的确，要善于发现并应用API海洋中的浪花，有了她们，我们的程序开发就不会枯燥，新奇的感觉将不断地涌现！


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店