Visual Basic编程映射/中断网络磁盘
来源:互联网 发布:淘宝店铺商品怎么打折 编辑:程序博客网 时间:2024/05/16 00:50
下面的程序段可以模拟【网上邻居】及【我的电脑】中的【映射 / 中断网络磁盘】,就是出现【映射 / 中断网络磁盘】的问话框,让使用者根据自己电脑的情形,来决定要连接的网络磁盘要映射到自己的那一个磁盘?要中断的又是那一个对应的磁盘?
请在声明区中加入以下声明及模组:
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
请在声明区中加入以下声明及模组:
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
- Visual Basic编程映射/中断网络磁盘
- visual basic 网络硬盘
- 映射网络磁盘(VC)
- 映射网络磁盘
- 建立网络映射磁盘
- 建立网络映射磁盘
- Visual Basic 编程问题解答
- Visual Basic编程规范
- VISUAL BASIC 编程标准
- Visual Basic 编程指南
- WIN7建立网络映射磁盘
- 网络文件共享|磁盘映射
- smbd服务器-网络磁盘映射
- Visual Basic 编程标准(1)
- Visual Basic编程规范[转]
- Visual Basic动画编程技术
- Visual Basic 的数据库编程
- Visual Basic 的数据库编程
- 创建一个显示HTML内容的模态对话框
- VB中利用API函数实现屏幕颜色数设定
- SAP收购分析软件制造商Pilot Software
- VB中利用第三方控件实现软件在线升级
- 用Visual Basic实现Office助手
- Visual Basic编程映射/中断网络磁盘
- ASP.NET2.0中创建模态对话框提交按钮不起作用,什么原因?
- 如何用gprs段信猫发短信
- VB中用第三方控件制作资源管理器
- 第一次求助。
- Visual Basic中轻松打造绚丽按钮
- 微软JDBC驱动的问题 :ResultSet can not re-read row data for column
- 用Visual Basic为软件增加注册功能
- VB6如何在托盘中写入应用程序图标