用 VB 做聊天程序的方法
---- 所谓"聊天"是指两个程序能够发送数据给对方。这个程序涉及到数据通讯的知识,仿佛
很复杂,不过,由于 VB 给我们提供了一个 Winsock 控件,问题就变得很简单了。
---- 先编写"聊天(主机)"程序。在窗体里添加 Winsock 控件,并设置其 Protocol 属性为 1-
SckUDPProtocol,其他属性为缺省值。接着添加两个标签和两个文本框,设置两个标签的标
题属性分别为"接收窗"和"发送窗";两个文本框的标题属性为空。最后编写代码:
---- 1."聊天(主机)"
Private Sub Form-Load()
′设置网络地址
Winsock1.LocalPort=1024
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1999
End Sub
Private Sub Text1-Change()
′发送用户输入的内容
Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1-DataArrival
(Byval bytesTotal As Long)
Dim rec As String
′接收对方数据并在文本框内显示
Winsock1.GetData rec, vb String
Text2.Text=rec
End Sub
---- 2."聊天(副机)"
Private Sub Form_Load()
′设置网络地址
Winsock1.LocalPort=1999
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1024
---- 其他部分程序与(主机)相同。最后将两个程序存盘,并编译成执行(.Exe)文件。现
在就可以使用这个程序进行对话了。
---- 七.文本框中文本的某一特定字符或字符串同时高亮显示的方法
---- 由于普通 TextBox 控件不支持不连续字符串的同时高亮显示,所以我们选择 RichTextBox
控件。单击工程(Project)选单项,在弹出的下拉选单中单击组件(Components)选单项,
从弹出的对话框中选择 Microsoft Rich Textbox Control 5.0 复选框,确定加载 RichTextBox 控