【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了vb聊天 - 编程语言相关资料，希望对各位网友有所帮助!

用Winsock控件开发的一个“2人网络聊天”程序程序的运行结果如图61、图62所示。

    两个程序可以在同一台计算机上运行也可以在网络上不同的计算机上运行。

    系统的运行机制是 第1步建立连接 主要过程是由客户端程序向服务端程序发出连接请求服务端程序收到并接受连接请求至此客户机与服务器间创建了数据交流通道。

     第2步开始聊天 主要过程是当我们在客户机的“发送的信息”文本框中输入文字时服务器端的“收到的信息”文本框中就会实时地显示相同的文字反之亦然。

     1开发一个人事档案管理数据库应用程序要求程序运行后通过MSFlexGrid控件在主界面上显示数据表中的内容单击工具栏上的“增加”、“删除”、“查看”按钮可以进行相应的操作单击“退出”按钮退出应用程序。

    程序运行界面如图5-1、5-2、5-3所示。

     开发步骤和要求 1服务器程序界面设计 1创建一个“标准EXE”工程。

    选中“工程”菜单的“部件”选项在控件中找到Microsoft Winsock Control并选中。

     2将Form1的名称改为FrmSvr并拖放一个命令按钮控件将Caption属性修改为“退出”。

     3在窗体上拖放三个TextBox控件分别将名称修改为txtServerIP、txtSend和txtReceive用来显示服务器的IP地址和需收发的信息。

     4在窗体上拖放一个WinSock控件将名称改为WinsockServer将Protocol协议属性设置为0即sckTCPProtocol。

     2服务器程序代码设计 请参考文字教材204页。

     3客户端程序界面设计 1与服务端程序类似地创建一个新的“标准EXE”程序并添加Winsock控件。

     图6-1 客户端程序界面 图6-2 服务器程序界面 2将Form1的名称改为FrmClt并拖放两个命令按钮控件分别将它们的Caption属性设置为“退出”和“连接聊天服务器”。

     3在窗体上拖放三个文本框控件分别将名称修改为txtClientIP、txtSend和txtReceive用来显示客户机的IP地址和需收发的信息。

     4在窗体上拖放一个WinSock控件将名称改为WinsockClient将Protocol协议属性设置为0即sckTCPProtocol。

     4客户端程序代码设计 请参考文字教材205页。

     注意提交“vbxk6网络聊天”文件夹。