vb网络聊天程序制作方法

《vb网络聊天程序制作方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在VB6.0中用winsock控件制作网络聊天程序的方法Internet的出现改变了人们的生活，也成为了现代社会的最显著的标志。VB6.0中的Winsock控件正是当前Internet软件开发的主要工具之一，本文将通过一个网络聊天程序的制作与您共同探讨该控件在Internet网络应用程序开发中的技术。制作网络聊天的关键是了解Winsock控件，在VB6.0中该控件以部件的形式将WinsockAPIs形象地呈现给程序员，Winsock控件提供了访问TCP和UDP网络服务的方便途径，程序员可以使用它很方便地完成网络应

2、用程序的开发，而不必了解网络协议的细节或调用低级的WinsockAPIs，只需通过设置控件的属性并调用其方法就可方便地连接到一台远程机器上去，且还可双向交换数据。当我们做到这一点时，基于Internet网络的应用程序也就完成了。以下是在VB6.0中用winsock控件制作网络聊天程序的技术过程：·一、设计程序界面·1、启动VB6.0新建一个EXE工程，在窗体上添加五个标签（label）、两个按钮（commandbutton）、五个文本框（textbox）。·2、在工具栏上空白处点右键，选择"部件"，打开"部件"对

3、话框，在"控件"选项卡内找到"MicrosoftWinsockCotrolistheTibetanPlateaupoly.Centercityonlyapopulationofoveronemillion.Xiningislocatedinthe"Tangfangudao"andtheancient"SilkRoad"road,istheLoessPlateauandtheTibetanPlateau,agriculturalandpastoralareasand,inconjunctionwiththeMini

4、stryofcultureandIslamicculture6.0"，在前面的复选框内打"√"，选择"确定"。将"Winsock"控件添加到窗体上。·3、调整各控件的大小，如图一　　　　　　　　　　图　一二、设置各对象的属性1、在属性窗口中将各对象属性设置如下表：序号对象属性名属性值属性名属性值1窗体(form)caption网络聊天程序  2标签(label1)caption本地计算机名：  3标签(label2)caption（为空）namelclpclbl4标签(label3)caption本地端口：  5

5、标签(label4)caption连接对象：  6标签(label5)caption远程端口：  7按钮（command1）caption发　送namesndbtn8按钮（command2）caption连　接namecnctbtn9文本框(text1)text（为空）namercvtxtscrollbar2mutilinetrue10文本框(text2)text（为空）nameinpttxt11文本框(text3)text（为空）namelclprt12文本框(text4)text（为空）namermtpc13

6、文本框(text5)text（为空）namermtprt 2、调整各控件的大小，制作完成后的程序界面如图二 三、编写程序代码　　　　　　　　　 图　二 程序代码及含义如下：OptionExplicitPrivateSubForm_Load()                          istheTibetanPlateaupoly.Centercityonlyapopulationofoveronemillion.Xiningislocatedinthe"Tangfangudao"andtheancien

7、t"SilkRoad"road,istheLoessPlateauandtheTibetanPlateau,agriculturalandpastoralareasand,inconjunctionwiththeMinistryofcultureandIslamicculture‘窗体载入时的事件过程Winsock1.Protocol=sckUDPProtocol　　　‘设置Winsock1的传输协议为UDP协议EndSub　　　　　　　　　　　　　　‘结束本事件过程 PrivateSubcncbtn_Click

8、()　　　　　　‘单击"连接"按钮事件Lclpclbl.Caption=Winsock1.Localhostname　‘在第二个标签上显示本地计算机名　　　　Winsock1.RemoteHost=rmtpc.Text　　　　‘确定Winsock连接的远程主机名Winsock1.RemotePort=rmtprt.Text　　　　‘确定Winsock远程主机的通讯端口Wi