vb制作聊天软件

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

1、[VB教程]简单的网络聊天程序（转帖）2006年05月30日　苏霆  这是一个简单的聊天程序(VB6.0实现)，它可以实现在局域网中两台主机间的在线聊天，程序很简单，只有短短的几十行，但“麻雀虽小，五脏俱全”，它已经有了聊天程序的大体框架。我们在它的基础上稍加改进，就能做出不错的聊天小软件呢。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：OptionExplicitPrivateIgnoreTextAsBoolean"----------------------各控件说明----------

2、------------------"--名称-------------类型---------------作用------------------"frmMainFormCHAT主窗体"Winsock1Winsock连接控件"Label1LabelCONNECTWITHIP标签"Label2LabelLOCALPORT标签"Label3LabelREMOTEPORT标签"txtRemoteIPTextBox远程IP地址输入框"txtLocalPortTextBox本地PORT输入框"txtRemotePortTe

3、xtBox远程PORT输入框"cmdConnectCommandButton连接CONNECT按钮"Label4LabelTypeyourtextandhitEntertosendit.标签"Frame1(remoteip)FrameREMOTEIP框架"Frame2(hostip)FrameHOSTIP框架"Text1TextBox显示对方（远程主机）发送的CHAT内容"Text2TextBox输入己方（本地主机）要发送的CHAT内容，按ENTER键发送"cmdClearCommandButton清空输入框（T

4、EXT2）和显示框（TEXT1）中的内容"StatusBar1StatusBar状态栏"-----------------------------------------------------------"当CLEAR按钮按下时，清空TEXT1和TEXT2中的内容PrivateSubcmdClear_Click()Text1=""WithText2"清空输入框.Text="""并把焦点置于TEXT2.SetFocusEndWithEndSub"当CONNECT按钮按下时，进行以下操作PrivateSubcmdC

5、onnect_Click()OnErrorGoToErrHandlerWithWinsock1"设置RemoteHost属性.RemoteHost=Trim(txtRemoteIP)"设置RemotePort属性"RemotePort属性的值应该等于远程主机上的LocalHost属性的值.RemotePort=Trim(txtRemotePort)"LocalPort属性的值是不能改变的,必须检查它是否已经被设置"如果LocalPort属性为空（没有被设置），将其设为在LocalPort输入框中输入的数值If.L

6、ocalPort=EmptyThen.LocalPort=Trim(txtLocalPort)Frame2.Caption=.LocalIP.Bind.LocalPort"待查EndIfEndWith"为了保证使用者不能改变LocalPort的值，将txtLocalPort输入框锁定txtLocalPort.Locked=True"在状态栏中显示“正在连接”的状态StatusBar1.Panels(1).Text="Connectedto"&Winsock1.RemoteHost&"""如果连接正常，做以下设置F

7、rame1.Enabled=TrueFrame2.Enabled=TrueLabel4.Visible=TrueText2.SetFocusExitSub"如果在连接过程中出现错误，则转向ErrHandler:，并显示错误提示ErrHandler:MsgBox"Winsockfailedtoestablishconnectionwithremoteserver",vbCriticalEndSub"当按下“F1”键时显示帮助信息PrivateSubForm_KeyDown(KeyCodeAsInteger,Shif

8、tAsInteger)IfKeyCode=vbKeyF1ThenChDirApp.Path"调用外部程序notepad.exe来打开帮助文本文件Shell"notepad.exereadme.txt",vbNormalFocusEndIfEndSub"当窗体加载时显示提示信息并在txtRemoteIP框中显示本地主机的IPPrivateSubForm_Load()Show