Visual+Basic+6.0教程学习（版本五）.ppt

由于Visual Basic 6.0提供的控件并非能够完全满足用户的需求，用户可以根据需要自己动手创建符合要求的ActiveX控件，完成控件的注册后，即可通过选择“工程”→“部件”命令，打开“部件”对话框来加载创建的ActiveX控件。 下面以创建数码管数字时钟来介绍如何利用Visual Basic 6.0创建自己的ActiveX控件。在进入实际操作之前，先介绍创建数字时钟的思路。 为ActiveX工程添加图像资源，用于作为显示元件。 数码管数字时钟的时间源为系统时间，通过Time函数获取当前系统时间。 通过Timer控件每隔一秒时间将图像资源加载到窗体中，来动态实现数字时钟的变化。 创建ActiveX控件 创建ActiveX控件的步骤 Visual Basic 6.0提供了用于创建ActiveX控件的向导。创建ActiveX控件的步骤如下所示。 创建一个“ActiveX控件”工程。 在窗体上设计ActiveX控件的外观。 为ActiveX控件编写代码。 定制ActiveX控件的属性、方法和事件。 生成ActiveX控件。 在系统中注册ActiveX控件。 TCP（Transmission Control Protocol）协议也称为传输控制协议。前面介绍了IP协议，但是遵循IP协议进行通信的计算机发送数据后，并不知道数据是否到达目的地。当发送的数据比较重要时，用户必须了解数据的状态，这时TCP协议可以很好地完成这项功能。简单地说，在TCP协议下，当用户发送一个数据包给其他人，用户能够知道数据包是否到达目的地，如图13.2所示。 UDP协议 UDP（User Datagram Protocol）协议也称为用户数据报协议。该协议是一种无连接的传输层协议，提供面向事务的简单不可靠信息传输服务。与TCP协议相比，UDP协议并不提供对IP协议的可靠机制、流控制及错误恢复机制等功能。UDP协议在传输数据时并不建立连接，而是首先设置客户端的IP地址，设置客户端的端口值，然后发送数据。数据是否到达目的地需要用户在程序中单独进行检测。 Winsock控件 在Visual Basic 6.0中，要想利用第13.1节所介绍的TCP协议和UDP协议进行网络通信编程，需要使用Winsock控件。利用Winsock控件可以与远程计算机建立连接，并通过TCP协议和UDP协议进行数据传输。Winsock控件对于用户来说是不可见的，它为用户提供了方便快捷的网络访问途径。当用户编写客户端或服务器应用程序时，不必了解底层的TCP协议和UDP协议或Winsock API函数，即可完成相应程序的设计。下面分别介绍Winsock控件的主要属性、方法和事件。 由于Winsock控件不是Visual Basic 6.0的标准控件，在使用Winsock控件之前需要先将该控件加载到工具箱中。在工程中选择“工程”→“部件”命令，打开“部件”对话框，选择“Microsoft Winsock Control 6.0（SP5）”项目。单击“确定”按钮将Winsock控件加载到工具箱中，如图13.3所示。 Winsock控件的属性 通过对Winsock控件属性的设置可以完成诸如获取本地计算机名称、设置本地计算机端口及设置远程计算机名称和地址等功能。Winsock控件的主要属性有以下几个。 1．LocalHostName属性 LocalHostName属性用于返回本地计算机的名称。该属性在设计时是只读的，并且不可用。语法如下。 object.LocalHostName 参数object为对象表达式。 2．LocalIP属性 LocalIP属性用于返回本地计算机的IP地址。格式是点数格式，例如，。该属性在设计时是只读的，而且是不可用的。语法如下。 object. LocalIP 应用示例 以下利用LocalHostName属性和LocalIP属性来获取本地计算机的计算机名称和IP地址。在窗体上添加一个Winsock控件和两个TextBox控件及一个CommandButton控件。当单击CommandButton控件时，在TextBox控件中显示本地计算机的名称和IP地址。如示例代码13-1所示。 示例代码 01 Option Explicit 02 LocalHostName属性和LocalIP属性演示 03 Private Sub cmdGetInfo_Click() 04 txtName.Text = sckInfo.LocalHostName 获取计算机名称 05 txtIP.Text = sckInfo.LocalIP 获取计算机IP 06 End Sub Winsock控件的方法 Winsock