月光软件站 - 编程文档 - VB语言

VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·一个简单的MP3播放器
·VB中使用EXCEL输出
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单（一）
·VB打造超酷个性化菜单（六）
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

编写映射驱动器

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

步骤：新建一窗体form，建立两个框架frame1和frame2在frame1上建立四个标签、四个text控件和一个按钮，在frame2上建立一个标签、一个text控件和一个按钮。
　　代码如下
　　Option Explicit
　　Private Type NETRESOURCE
　　dwScope As Long
　　dwType As Long
　　dwDisplayType As Long
　　dwUsage As Long
　　lpLocalName As String
　　lpRemoteName As String
　　lpComment As String
　　lpProvider As String
　　End Type
　　Const NO＿ERROR = 0
　　Const CONNECT＿UPDATE＿PROFILE = &H1
　　Const RESOURCETYPE＿DISK = &H1
　　Const RESOURCETYPE＿PRINT = &H2
　　Const RESOURCETYPE＿ANY = &H0
　　Const RESOURCE＿CONNECTED = &H1
　　Const RESOURCE＿REMEMBERED = &H3
　　Const RESOURCE＿GLOBALNET = &H2
　　Const RESOURCEDISPLAYTYPE＿DOMAIN = &H1
　　Const RESOURCEDISPLAYTYPE＿GENERIC = &H0
　　Const RESOURCEDISPLAYTYPE＿SERVER = &H2
　　Const RESOURCEDISPLAYTYPE＿SHARE = &H3
　　Const RESOURCEUSAGE＿CONNECTABLE = &H1
　　Const RESOURCEUSAGE＿CONTAINER = &H2
　　Private Declare Function WNetAddConnection2 Lib “mpr.dll” Alias ＿
　　“WNetAddConnection2A” ＿
　　lpNetResource As NETRESOURCE ＿
　　ByVal lpPassword As String ＿
　　ByVal lpUserName As String ＿
　　ByVal dwFlags As Long　 As Long
　　Private Declare Function WNetCancelConnection2 Lib “mpr.dll” Alias ＿
　　“WNetCancelConnection2A” ＿
　　ByVal lpName As String ＿
　　ByVal dwFlags As Long ＿
　　ByVal fForce As Long　 As Long
　　Private Sub cmdConnect＿Click　
　　Dim NetR As NETRESOURCE
　　Dim ErrInfo As Long
　　NetR.dwScope = RESOURCE＿GLOBALNET
　　NetR.dwType = RESOURCETYPE＿DISK
　　NetR.dwDisplayType = RESOURCEDISPLAYTYPE＿SHARE
　　NetR.dwUsage = RESOURCEUSAGE＿CONNECTABLE
　　NetR.lpLocalName = Text10　.Text
　　NetR.lpRemoteName = Text11　.Text
　　ErrInfo = WNetAddConnection2NetR Text13　.Text Text12　.Text CONNECT＿UPDATE＿PROFILE　
　　If ErrInfo = NO＿ERROR Then
　　MsgBox “Net connection successful” vbInformation
　　Else
　　MsgBox “ERROR ” & StrErrInfo　 & “ - Net connection unsuccessful” ＿
　　vbExclamation
　　End If
　　End Sub
　　Private Sub cmdDisconnect＿Click　
　　Dim ErrInfo As Long
　　Dim strLocalName As String
　　strLocalName = Text14　.Text
　　ErrInfo = WNetCancelConnection2strLocalName CONNECT＿UPDATE＿PROFILE False　
　　If ErrInfo = NO＿ERROR Then
　　MsgBox “Net disconnection successful” vbInformation
　　Else
　　MsgBox “ERROR ” & StrErrInfo　 & “ - Net disconnection unsuccessful” ＿
　　vbExclamation
　　End If
　　End Sub

相关文章：

相关软件：