锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net窗体选项卡 vbs窗体

IT技术函数

vb.net如何使用TCP/IP协议向服务器发送字符串，要用到什么控件和函数？TCP协议是TCP/IP协议簇中的传输层中的一个协议，也是TCP/IP协议簇最为重要的协议之一 。在TCP/IP协议簇中 ， 有一个协议和TCP协议非常类似，这就是UDP协议，网络上进行基于UDP协议的数据传送时，发送方只需知道接收方的IP地址（或主机名）和端口号就可以发送UDP数据包 。而接收方只需知道发送方发送数据对应的端口号，就能够接收UDP数据包了 。传送数据的双方并不需要进行连接就能够实现数据通讯，这样就导致基于UDP协议的网络应用程序，在传送数据时无法保证可靠性、完整性和安全性 。
　而TCP协议却与之相反 ， TCP协议是一种面向连接的，并提供可靠的、完整的、安全的数据传送的网络协议 。它提供可靠字节服务的协议 。在网络中通过TCP协议传送数据之前，发送方和接收方之间必须建立连接，这种连接就是所谓的"握手" 。网络中TCP应用，如同日常生活中的打电话，在通话之前，首先要拨号、震铃（犹如发送方向接收方提出TCP连接申请，并等待TCP连接申请通过） 。直到对方拿起电话时（发送方和接收方的TCP连接已经建立），就可以通话了（传送数据） 。本文的主要内容就来介绍在Visual Basic .Net实现基于TCP协议网络数据传送的一种简单的方法 。
一．简介本文在实现TCP协议网络应用时使用的类库：
.Net FrameWork SDK中提供了很多用以实现TCP协议或与之相关协议的类库，本文就选择五个比较典型，也是比较简单的类加以介绍，即：TcpListener类、TcpClient类、NetworkStream类、StreamReader类和StreamWriter类 。TcpClient主要用以提出TCP连接申请 。TcpListener主要用以侦听端口号，并接收远程主机的TCP连接申请 。NetworkStream类是实现TCP数据传输的基础数据流，StreamReader类作用是通过操作NetworkStream ， 实现从网络接收数据 。StreamWriter类作用是通过操作NetworkStream，实现向网络传输数据 。
1. NetworkStream类：
NetworkStream类主要是提供用于网络访问的基础数据流 。它主要是网络数据传输的载体，并提供同步、异步方式来访问网络数据流 。虽然NetworkStream类有构造函数 ， 但在实际情况中更多是通过TcpClient实例的GetStream方法来初始化NetworkStream实例 。以下就是使用TcpClient实例的GetStream方法来初始化NetworkStream实例具体代码：
Dim tcpClient As TcpClient
Dim nsStream As NetworkStream
tcpClient = New TcpClient( "" , 8000)
''对远程主机的8000端口提出TCP连接申请
nsStream = tcpClient.GetStream ( )
''TCP连接建立后，获得网络数据传输的基础数据流
在下面介绍的程序示例中，就是利用NetworkStream作为传送和接收数据的载体 。而操作这个载体的就是StreamWriter类和StreamReader类 。表01和表02是NetworkStream类中一些常用的方法、属性及其说明 。
方法 说明 BeginRead 开始异步读者基础数据流 。BeginWrite 开始异步写入基础数据流 。Close 关闭流并可选择关闭基础套接字 。EndRead 结束异步读取 。EndWrite 结束异步写入 。Flush 刷新流中的数据 。Read 从流中读取数据 。Seek 将流的当前位置设置为给定值 。SetLength 设置流的长度 。Write 将数据写入流 。
表01：NetworkStream类中常用的方法及其说明
其中"BeginRead"、"EndRead"和"BeginWrite"、"EndWrite"是二对异步方法，起作用分别相当于"Read"和"Write"方法 。
属性 说明 CanRead 获取当前流是否支持读取 。CanSeek 获取流是否支持查找 。该属性总是返回 false 。CanWrite 获取当前流是否支持写入 。DataAvailable 获取是否可以在流上读取数据 。Length 流上可用数据的长度 。Position 获取或设置流中的当前位置 。
表02：NetworkStream类中属性及其说明
2. StreamReader类：
StreamReader类能够实现对基础数据流的读操作 ， 从而实现对经过基础数据流传送来的数据 。表03是StreamReader类的常用的方法及其说明：
方法 说明 Close 关闭StreamReader并释放与阅读器关联的所有系统资源 。DiscardBufferedData 允许StreamReader丢弃其当前数据 。Peek 返回下一个可用的字符 ， 但不使用它 。Read 读取输入流中的下一个字符或下一组字符 。ReadBlock 从当前流中读取最大数量的字符并从索引开始将该数据写入缓冲区 。ReadLine 从当前流中读取一行字符并将数据作为字符串返回 。ReadToEnd 从流的当前位置到末尾读取流 。
表03：NetworkStream类中常用的方法及其说明
3. StreamWriter类：
StreamWriter类能够实现对基础数据流的写操作，从而实现提供基础数据流来传送数据 。表04是StreamWriter类的常用方法及其说明：
方法 说明 Close 关闭当前的StreamWriter和基础流 。Flush 清理当前编写器的所有缓冲区 ， 并使所有缓冲数据写入基础流 。Write 写入基础数据流 。WriteLine 写入重载参数指定的某些数据 ， 后跟行结束符 。
表04：StreamWriter类的常用方法及其说明
4.TcpClient 类：
TcpClient 类主要为TCP网络服务提供客户端连接 。TcpClient是类基于Socket类构建，
它以更高的抽象程度提供TCP服务 。TcpClient 提供了通过网络连接、发送和接收数据的简单方法 。表05和表06分别是TcpClient类常用方法、属性及其说明 。
方法 说明 Close 关闭 TCP 连接 Connect 使用指定的主机名和端口号将客户端连接到 TCP主机 GetStream 返回用于发送和接收数据的流
表05：TcpClient类常用的方法
属性 描述 LingerState 有关套接字逗留时间的信息 NoDelay 一个值，该值在发送或接收缓冲区未满时启用延迟 ReceiveBufferSize 接收缓冲区的大小 ReceiveTimeout TcpClient在启动后为接收数据而等待的时间长度 SendBufferSize 发送缓冲区的大小 SendTimeout 在您启动发送操作后TcpClient将为接收确认而等待的时间长度
表06：TcpClient类常用的属性
5.TcpListener 类：
TcpListener类的主要作用是从TCP网络客户端侦听连接，TcpListener类基于Socket 类
提供更高理念级别的TCP服务 。可以使用TcpListener从TCP客户端侦听连接 。像 FTP 和 HTTP 这样的应用层协议是在 TcpListener 类的基础上建立的 。表7和表8分别是TcpListener类常用方法、属性及其说明：
方法 说明 AcceptSocket 接受挂起的连接请求 AcceptTcpClient 接受挂起的连接请求 Pending 确定是否有挂起的连接请求 Start 开始侦听网络请求 Stop 关闭侦听器表7：TcpListener 类常用的方法
属性 说明 LocalEndpoint 获取当前TcpListener的基础EndPoint Active 获取一个值，该值指示 TcpListener 是否正主动侦听客户端连接 Server 获取基础网络Socket
表8：TcpListener 类常用的属性
二．Visual Basic .Net实现基于TCP协议数据传送程序的体系结构：
在下面介绍的用Visual Basic .Net实现基于TCP协议的数据传送程序是由二个子程序组成的 。也可以看成是服务器端程序和客户端程序，其中：服务器端程序的功能是侦听端口号，接收远程主要的TCP连接申请，并接收远程主机传送来的文字数据 。另外一个子程序，也就是所谓的客户端程序，主要实现向网络的远程主机提出TCP连接申请 ， 并在连接申请通过后，向远程主机传送文字数据 。下面来详细介绍Visual Basic .Net实现TCP协议网络数据传送的服务器端程序和客户端程序的具体步骤 。
三．服务器端程序的具体实现步骤：
服务器端程序的实现关键在于侦听端口号，接收远程主机的TCP连接申请 ， 获得网络数据传输的基础数据流 ， 并通过基础数据流接收数据 。接收数据使用的是StreamReader中ReadLine方法，由于ReadLine方法是一个阻塞式的方法，所以在下面具体的实现步骤中，是接收数据是在创建的线程中完成的，具体可参阅下面实现步骤中的第十一和十二步 。以下是Visual Basic .Net实现TCP协议客户端程序实现的具体步骤：
1. 启动Visual Studio .Net 。
2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框 。
3. 将【项目类型】设置为【Visual Basic项目】 。
4. 将【模板】设置为【Windows应用程序】 。
5. 在【名称】文本框中输入【服务器端程序】 。
6. 在【位置】的文本框中输入【E:\VS.NET项目】 ， 然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"服务器端程序"的文件夹，并在里面创建了名称为"服务器端程序"的项目文件 。
7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作：
一个Label组件 。
一个StatusBar组件 。
一个ListBox组件 。
一个Button组件，并在这个Button组件拖入Form1的设计窗体后，双击它 ， 则系统会在Form1.vb文件分别产生这个组件的Click事件对应的处理代码 。
8. 按照表05所示调整窗体中各组件属性的数值：
组件类型 组件名称 属性 设置结果 Form Form1 Text 服务器端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 启动服务Button1 FlatStyle Flat Label Label1 Text 服务尚未启动 StatusBar StatusBar1 Text 无连接！表05：【服务器端程序】项目中组件设定数值表
　9. 把Visual Studio .Net的当前窗口切换到Form1.vb的代码编辑窗口 ， 并在Form1.vb文件的最前面添加下列代码 ， 下列代码在Form1.vb中导入程序中要使用的类所在的命名空间：
Imports System.Net.Sockets
''使用到TcpListen类
Imports System.Threading
''使用到线程
Imports System.IO
''使用到StreamReader类
10. 在Form1.vb中创建各种可视组件的代码中添加下列代码，下列代码的作用是创建全局使用的实例和变量：
Private iPort As Integer = 8000
''定义侦听端口号
Private thThreadRead As Thread
''创建线程，用以侦听端口号，接收信息
Private tlTcpListen As TcpListener
''侦听端口号
Private blistener As Boolean = True
''设定标示位，判断侦听状态
Private nsStream As NetworkStream
''创建接收的基本数据流
Private srRead As StreamReader
''从网络基础数据流中读取数据
Private tcClient As TcpClient
11. 在Form1.vb中的InitializeComponent过程之后添加下列代码，下列代码的作用是定义Listen过程，此过程的作用是侦听本地机的8000端口号，接受网络主机的TCP连接申请，并接收从建立申请的远程主机发送来的文本数据：
Private Sub Listen ( )
Try
　tlTcpListen = New TcpListener ( iPort )
　''以8000端口号来初始化TcpListener实例
　tlTcpListen.Start ( )
　''开始监听
　StatusBar1.Text = "正在监听..."
　tcClient = tlTcpListen.AcceptTcpClient ( )
　''通过TCP连接请求
　nsStream = tcClient.GetStream ( )
　''获取用以发送、接收数据的网络基础数据流
　srRead = New StreamReader ( nsStream )
　''以得到的网络基础数据流来初始化StreamReader实例
　StatusBar1.Text = "已经建立TCP连接！"
　''循环侦听
　While blistener
Dim sMessage As String = srRead.ReadLine ( )
''从网络基础数据流中读取一行数据
If ( sMessage = "STOP" ) Then
　tlTcpListen.Stop ( )
　''关闭侦听
　nsStream.Close ( )
　srRead.Close ( )
　''释放资源
　StatusBar1.Text = "无连接！"
　thThreadRead.Abort ( )
　''中止线程
　Return
Else
　''判断是否为断开TCP连接控制码
　Dim sTime As String = DateTime.Now.ToShortTimeString ( )
　''获取接收数据时的时间
　ListBox1.Items.Add ( sTime" "sMessage )
End If
　End While
Catch ex As System.Security.SecurityException
　MessageBox.Show ( "侦听失败！" , "错误" )
End Try
End Sub
12. 用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码，下列代码功能是用上面定义的Listen过程来初始化并启动线程，接收建立TCP连接的远程主机发送来的文本数据：
Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　thThreadRead = New Thread ( New ThreadStart ( AddressOf Listen ) )
　''以Listen过程来初始化线程实例
　thThreadRead.Start ( )
　''启动线程
　Button1.Enabled = False
　Label1.Text = "服务已经启动！"
　Label1.ForeColor = Color.Red
End Sub
13. 用下列代码替换Form1.vb中的Dispose过程，下面代码的作用是重新定义Dispose过程，在Dispose过程手动清除使用的资源，回收垃圾：
Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
　Try
thThreadRead.Abort ( ) ''中止线程
tlTcpListen.Stop ( ) ''关闭侦听
tcClient.Close ( )
nsStream.Close ( )
srRead.Close ( ) ''释放资源
　Catch
　End Try
　If disposing Then
If Not ( components Is Nothing ) Then
　components.Dispose ( )
End If
　End If
　MyBase.Dispose ( disposing )
End Sub
14. 至此在上述步骤都正确执行后，【服务器端程序】项目的全部工作就完成了 。编译、生成可执行文件后 ， 接着介绍客户端程序的实现步骤 。
四．客户端端程序的具体实现步骤：
客户端端序的实现关键在于向网络中的远程主机提出TCP连接申请，并在申请通过后 ， 得到传输数据的基础数据流，并通过对基础数据流进行写操作向远程主机传送文本数据 。由于在客户端程序中没有使用阻塞式的方法，所以程序中没有使用到线程 。对远程主机提出TCP连接申请的具体实现方法请参阅以下第步；对基础数据流进行写操作，从而实现向远程主机传送文本数据的方法请参阅以下第步 。下面客户端程序的具体实现步骤：
1. 启动Visual Studio .Net 。
2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框 。
3. 将【项目类型】设置为【Visual Basic项目】 。
4. 将【模板】设置为【Windows应用程序】 。
5. 在【名称】文本框中输入【客户端程序】 。
6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"客户端程序"的文件夹，并在里面创建了名称为"客户端程序"的项目文件 。
7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件 ， 并执行相应的操作：
二个Label组件 。
二个TextBox组件 。
一个StatusBar组件 。
二个Button组件，并在这二个Button组件拖入Form1的设计窗体后 ， 双击它们，则系统会在Form1.vb文件分别产生这二个组件的Click事件对应的处理代码 。
8. 按照表01所示调整窗体中各组件属性的数值：
组件类型 组件名称 属性 设置结果 Form Form1 Text 客户端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 连接 Button1 FlatStyle Flat Button2 Text 发送 Button2 FlatStyle Flat Label Label1 Text 服务器IP地址： Label2 Text 信息： StatusBar StatusBar1 Text 无连接！ TextBox TextBox1 Text "" TextBox1 BorderStyle FixedSingle TextBox2 Text "" TextBox2 BorderStyle FixedSingle
表06：【客户端程序】项目中组件设定数值表
有任何疑问请追问，满意请采纳，谢谢 。
VB.net如何设置程序运行时最先打开的窗体？你是不是用的Visual Studio来开发的？如果是vb.net窗体选项卡，这样操作：打开 项目 菜单 中的 XXX属性vb.net窗体选项卡，在弹出的属性页选择最上面那个 应用程序 标签 ， 里面有个启动窗体，你选择一下就可以了 。
如果你不是用的visual Studio来开发的，那么可以考虑把另外一个窗口的visible属性先设置为false或者把你要显示的窗口改为对话框的形式，大小比另外一个窗口大一点或者一样（即 模态窗口，必须关闭才能继续操作） ， 这样都可以实现你要的效果 。
急~~~~~VB.NET工具箱中的数据选项卡和组件选项卡被不慎移除了我记得有一个添加vb.net窗体选项卡，你点上，一个一个再给加回来就好vb.net窗体选项卡了
怎样用VB.NET写和调用DLl窗体一、带窗体vb.net窗体选项卡的dll创建
1、先新建 类库（testdll）vb.net窗体选项卡 ， 在项目中添加两个窗体form1(主窗体)、form2,为了与后面的调用区分分别命名为fm1,fm2vb.net窗体选项卡；并在fm1窗体中添加一个按钮用来调用fm2如下图
2、在fm1窗体代码中先引用fm2,按钮代码调用fm2.如图
3、生成dll,(class1.vb中不需要写任何代码）
二、调用dll
1、新建 一个windows应用程序并添加一个按钮用来调用dll中的窗体vb.net窗体选项卡，选 择 “项目”－“添加引用”，选择刚才创建的testdll
2、窗体代码中先引用testdll,再定义一个testdll中的fm1对象，最后执行对象的show方法
3、运行结果如下vb.net窗体选项卡：
vb.net怎么加载和卸载窗体VB.net 加载窗体 form2.show()卸载窗体 me.close()加载窗体和VB没啥区别，而卸载就截然不同了 。附：VB加载窗体 form2.show卸载窗体 unload me
VB.NET的API调用现在我用我所知道vb.net窗体选项卡的为楼主介绍VB.NET的API调用vb.net窗体选项卡，请楼主浏览一下，看看行不行 。
Windows API就是Windows系统的API函数简称（Application Program Interface ， 即vb.net窗体选项卡：应用程序接口函数），它是Windows操作系统提供给各种开发基于Windows平台应用软件的开发语言的一些公用的函数 ， 这些函数一般都比较底层，所以当各种开发语言使用自带的函数或类库已无法解决问题时，调用Windows API函数往往是一种非常直接、有效的解决方法 。但由于在程序中调用Windows API函数一般都很复杂，所以对于程序员来说，是否能够灵活的使用Windows API函数，往往也是其水平高低的一个重要标志 。但自从微软推出.Net框架以后 ， 各种开发基于.Net平台下的程序语言，如Visual Basic .Net、Visual C＃等却很少使用Windows API函数 ， 并且微软公司也不像以前那样 ， 提倡在这些.Net开发语言中使用Windows API函数，其主要的原因如下：
1. .Net框架所附带的类库.Net FrameWork SDK是一个内容丰富、功能强大的软件开发包，各种Windows API函数所实现的各种功能几乎都可以在这个软件开发包中找到与之对应的部分 。
2. 微软Visual Basic .Net、Visual C＃等目的是编写跨平台的应用程序，如果在Visual Basic .Net、Visual C＃等中使用Windows API函数，这也就注定vb.net窗体选项卡了编写出的程序只能运行于Windows平台之下，而弱化了.NET的跨平台能力 。这也就是为什么微软不提倡在.Net平台调用Windows API函数的原因 。
虽然微软并不提倡在Visual Basic .Net、Visual C＃中调用Windows API函数，但由于目前.Net 框架推出时间较短 ， .Net FrameWork SDK中提供的类库还并不足以完全替换Windows API函数的所有功能，所以在某些时候，.Net开发语言还是必须要调用Windows API函数 。
一.平台调用、托管DLL、非托管DLL简介：
托管DLL就是能够在公共语言运行库（Common Language Runtime，简称CLR）中能够直接引用的，并且扩展名为“DLL”的文件 。具体所指就是封装各种命名空间所在的DLL文件，如System.dll等 。非托管DLL就是平常所的动态链接库等 ， 其中就包括了封装所有Windows API函数的DLL文件 。各种非托管DLL中的函数在公共语言运行库中不能直接被调用，而需要经过.Net框架提供的“平台调用”服务后才可以 。
“平台调用”是.Net框架为Visual Basic .Net、Visual C＃等.Net开发语言提供的一种服务，用以在托管代码中引入各种非托管DLL中封装的函数（其中包括Windows API函数） 。“平台调用”依赖于元数据在运行时查找导出函数并封装其参数 。图01公共语言运行库利用“平台服务”调用非托管DLL中的函数的流程图：
图01：“平台服务”的调用非托管函数的流程图
在托管代码中使用“平台调用”服务调用非托管DLL中封装的函数时 ， “平台服务”将依次执行以下操作：
1． 查找包含该函数所在的DLL文件 。
2． 如果找到，则将该DLL文件 加载到内存中 。
3． 查找函数在内存中的地址并将其参数推到堆栈上，并封送所需的数据 。
4． 将控制权转移给非托管函数 。这样整个函数调用完成 。
在Visual Basic .Net中使用“平台调用”服务，申明Windows API函数主要有二种具体的实现方法：
1． 使用DllImport特征类来申明Windows API函数 。
2． 使用“Declare”语句来申明Windows API函数 。
这二种方法虽有异曲同工之效，但在繁简上却有很大差异，第一种方法申明过程比较复杂，很容易在申明Windows API函数时出错，所以并不提倡 。而第二种方法相对简单，并且又保存了以前Visual Basic中的很多语法，所以在平常时大都使用这种方法来申明Windows API函数 。
二．VB.Net查看文件中图标的函数及申明Windows API的方法：
Visual Basic .Net要实现查看文件中的图标，目前只使用.Net FrameWork SDK是无法实现这种功能的 ， 正如前面所说，主要是由于.Net FrameWork SDK推出的时间较短，其功能还不可能面面俱到 。解决问题的关键是正确使用Windows API函数，其中所涉及到的Windows API函数主要有二个：其一是获得指定文件中的图标数目；其二是从指定文件的指定位置导出图标的Windows句柄 。这二个函数都位于“Shell32.dll”文件中，并且函数的入口点都为“ExtractIcon” 。下面是在Visual Basic .Net中分别使用DllImport特征类和“Declare”语句申明这二个Windows API函数的具体方法 。
（1）.使用DllImport特征类来申明Windows API函数：
下面是在Visual Basic .Net中使用DllImport特征类申明二个Windows API函数的具体示例：
'函数ExtractIcon ， 其功能是是从指定文件的指定位置导出图标的Windows句柄 。
＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" , EntryPoint := "ExtractIcon" ) ＞ _
Public Function _
ExtractIcon ( ByVal src As System.IntPtr , ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr
End Function
'函数Icon_Num，其功能是获得指定文件中的图标数目
＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" , EntryPoint := "ExtractIcon" ) ＞ _
Public Function _
Icon_Num ( ByVal src As System.IntPtr , ByVal strFileName As string , ByVal uiIconIndex As Integer ) As Integer
End Function
在使用DllImport特征类申明Windows API函数时，如果申明的函数名称和函数的入口点相同 ， 则可以在申明Windows API函数时，省略定义函数入口点对应的代码，即EntryPoint对象字段对应的代码，这样声明ExtractIcon函数的代码也可以简化为如下所示：
＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" ) ＞ _
Public Function _
ExtractIcon ( ByVal src As System.IntPtr , ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr
End Function
（2）.使用“Declare”语句来申明Windows API函数：
使用“Declare”语句的确比使用DllImport特征类要简单了许多 ， 下面是在Visual Basic .Net中使用“Declare”语句来声明上述二个Windows API函数的具体方法：
Declare Auto Function ExtractIcon Lib "Shell32.dll" Alias "ExtractIcon" ( ByVal src As System.IntPtr , ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr
'声明ExtractIcon函数
Declare Auto Function Icon_Num Lib "Shell32.dll" Alias "ExtractIcon" ( ByVal src As System.IntPtr , ByVal strFileName As string , ByVal uiIconIndex As Integer ) As Integer
'声明Icon_Num函数
在Visual Basic .Net中声明Windows API函数时，“Declare”语句中Alias关键字的作用相当于使用DllImport特征类中的EntryPoint对象字段 。同样在使用“Declare”语句声明Windows API函数时，如果声明的函数和函数的入口点相同，也可以省略Alias关键字对应的代码，所以ExtractIcon函数也可以简化为如下：
Declare Auto Function ExtractIcon Lib "Shell32.dll" ( ByVal src As System.IntPtr , ByVal strFileName As string , ByVal uiIconIndex As UInt32 ) As System.IntPtr
下面就结合一个示例的编写过程来掌握的这二个Windows API函数的具体使用方法，这个示例的作用就是读取指定文件中的图标数目，并显示文件中的图标 。
三．本文中程序的编写、调试和运行环境：
（1）.视窗2000高级服务器版 。
（2）.Visual Studio .Net 2003企业结构设计版，.Net FrameWork SDK版本号4322 。
四．Visual Basic .Net读取文件中的图标的实现步骤：
下面介绍的示例 ， 其功能读取指定文件中包含的图标数目，并把这些图标全部显示出来 。下面是这个示例的实现步骤：
1. 启动Visual Studio .Net 。
2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框 。
3. 将【项目类型】设置为【Visual Basic项目】 。
4. 将【模板】设置为【Windows应用程序】 。
5. 在【名称】文本框中输入【Visual Basic .Net查看文件中的图标】 。
6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在【E:\VS.NET项目】目录中就产生了名称为【Visual Basic .Net查看文件中的图标】文件夹，里面存放着【Visual Basic .Net查看文件中的图标】项目的所有文件 。具体如图02所示：
图02：【Visual Basic .Net查看文件中的图标】项目的【新建项目】对话框
7. 选择菜单【项目】|【添加新项】，在弹出的对话框中的【模板】设置为【模块】 ， 【名称】文本框设置为【Module1.vb】后 。单击【打开】按钮 ， 则在项目中增加了一个模板文件 ， 名称为【Module1.vb】 。
8. 把Visual Stuido .Net的当前窗口切换到Module1.vb的代码编辑窗口，并在其Module1的代码区中添加下列代码，下列代码是用二种方式声明二个Windows API函数：
＜ System.Runtime.InteropServices.DllImport ( "Shell32.dll" ) ＞ _
Public Function _
ExtractIcon ( ByVal src As System.IntPtr , ByVal strFileName As String , ByVal uiIconIndex As UInt32 ) As System.IntPtr
End Function
'声明ExtractIcon函数
Declare Auto Function Icon_Num Lib "Shell32.dll" Alias "ExtractIcon" ( ByVal src As System.IntPtr , ByVal strFileName As String , ByVal uiIconIndex As Integer ) As Integer
9. 把Visual Studio .Net的当前窗口切换到Form1窗体的设计查看，并从【工具箱】中的【Windows窗体】选项卡中拖入下列组件到Form1窗体：
四个Label组件，其中二个用以显示提示信息，另外二个分别用以显示选择的文件名称和这个文件中包含的图标数目 。
一个ListView组件，利用其显示大图标的属性用以显示选定文件中的图标 。
一个OpenFileDialog组件，用以选择要查看图标的文件名称 。
一个ImageList组件，它起的是桥梁的作用，首先把从文件中导出的图标存放到这里，然后再提供ListView组件显示出来 。
一个Button组件 。
10. 按照表01中数值来设定设定组件的主要属性：
组件类型组件名称属性设置结果
FormForm1TextVB.NET查看文件中的图标
Form1MaximizeBoxFalse
【vb.net窗体选项卡 vbs窗体】Form1MinimizeBoxFalse
Form1FormBorderStyleFixedSingle
ListViewListView1ImageList1LargeImageList
ListView1MultiSelectFalse
ListView1SizeSize ( 380 , 208 )
ButtonButton1Text选择文件
Button1FlatStyleFlat
ImageListImageList1SizeSize ( 32 , 32 )
ImageList1TransparentColorColor.Transparent
LabelLabel1Text文件名称：
Label2Text图标数目：
Label3Text""
Label4 Text"0"
表01：【Visual Basic .Net查看文件中的图标】项目窗体中各组件的主要属性设定数值表
并按照图02中各组件的位置、大小和排列方式来调整窗体中各个组件：
图02：【Visual Basic .Net查看文件中的图标】项目的设计界面
11. 把Visual Studio .Net当前窗口切换到Form.vb的代码编辑窗口，并用下列代码替换Form1.vb中的Button1组件的Click事件的处理代码，下列代码是在Button1组件的Click事件中处理查看文件中图标的功能，具体如下：
Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
If OpenFileDialog1.ShowDialog ( ) = DialogResult.OK Then
'清除组件中的所有项目
ListView1.Items.Clear ( )
ImageList1.Images.Clear ( )
Dim sfName As String = OpenFileDialog1.FileName
Label3.Text = sfName
Dim iIcon_Num As Integer = Icon_Num ( IntPtr.Zero , sfName , -1 )
'显示文件中的图标数目
Label4.Text = iIcon_Num.ToString ( )
Dim i As Integer
For i = 0 To iIcon_Num - 1 Step 1
'强制实现int到uint类型转换
Dim j As UInt32
j = System.Convert.ToUInt32 ( i )
Dim hIcon As System.IntPtr = ExtractIcon ( IntPtr.Zero , sfName , j )
'在imageList1组件中加入当然提取的图标
ImageList1.Images.Add ( Icon.FromHandle ( hIcon ).ToBitmap ( ) )
'在ListView组件中加入一个项目
ListView1.Items.Add ( "第"( i1 ).ToString ( )"个图标" )
'把加入项目的图象索引指向刚才加入图标在imagList1组件中的索引，从而显示图标
ListView1.Items ( i ).ImageIndex = i
Next i
End If
End Sub
12. 至此，在上述步骤都正确执行后，【Visual Basic .Net查看文件中的图标】项目的全部工作就完成了 。单击快捷键F5就可以运行程序 ， 此时单击【选择文件】按钮选择文件后，程序就能够读取这个文件中的图标及其数目 ， 并显示出来了 。具体如图03所示：
图03：【Visual Basic .Net查看文件中的图标】项目的运行界面
五．总结：
解决Visual Basic .Net查看文件中的图标的关键并非是使用.Net框架中提供的类库，而是使用Windows的API函数 。虽然这与利用Visual Basic .Net开发跨平台程序的初衷相违背，但的确不失为一种解决问题的方法 。有些时候通过Windows API函数能够快捷、方便的解决实际问题，而这往往是只使用.Net FrameWork SDK所望尘莫及的 ， 但随着.Net FrameWork SDK内容的不断丰富，各种新的组成部分和新的功能不断加入，可以预见的是 ， 在未来的.Net FrameWork SDK中必将拥有可以替换本文中介绍的二个Windows API函数的组成部分 。
关于vb.net窗体选项卡和vbs窗体的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：Oracle12cR2表空间传输，oracle数据表空间

    下一篇：求md游戏解谜游戏，md横版过关游戏