请在声明区中加入以下声明及模组:
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
【VisualBasic编程映射/中断网络磁盘】相关文章:
2025年外省高中学业水平合格性考试成绩转入江苏认定的通告公布05-09
Vb中控件的自动排列05-09
中国大地保险公司实习报告05-09
2018国家电网新大纲财会类市场模拟卷多选题(二)05-09
2016年职称英语综合类阅读判断练习八05-09
07年4月北师大“中国古代文学史(一)”串讲(5)05-09
2023年广东梅州中考成绩查询时间及查分入口[7月7日起]05-09
儿童舞蹈教程:国标新手上路05-09
2024年江苏中级导游等级考试准考证打印时间及入口(11月18日9:00起)05-09
