要与客户程序Ｌｏ— （５）在“计算机名称”框中可以找到计算机的 ｃａｌＰｏｒｔ属性一致。
名称。
只有这样设置，两个程序间才能正常通信，这 （６）上面找到的计算机名称可以作为Ｒｅ． 部分
代码如下：ｍｏｔｅＨｏｓｔ属性的值。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ—Ｌｏａｄ（） ３．２建立【聊天Ａ】程序 ’设置双方网络地址 （１）打开Ｖｉｓｕａｌ Ｂａｓｉｃ６．０中文版，建立标准 Ｗｉｎｓｏｃｋｌ．ＬｏｃａｌＰｏｒｔ＝１０２４程序，并设置窗体标题为“聊天Ａ’’。
Ｗｉｎｓｏｃｋｌ．ＲｅｍｏｔｅＨｏｓｔ＝”２０２．９９．６．１０１” （２）把Ｗｉｎｓｏｃｋ控件拖放到窗体中，并设置 Ｗｉｎｓｏｃｋｌ．ＲｅｍｏｔｅＰｏｒｔ＝１９９７Ｐｒｏｔｏｃｏｌ属性为１一ｓｃｋＵＤＰＰｒｏｔｏｃｏｌ，其他属性为 Ｅｎｄ Ｓｕｂ缺省值。
（２）在文本框的Ｃｈａｎｇｅ事件中，发送用户输 （３）在窗体上放置两个标签框，设置两标签框 入的数据。
的Ｃａｐｔｉｏｎ属性分别为“接收窗”和“发送窗”。
再 Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｅｘｔｌ。
Ｃｈａｎｇｅ（）放置两个文本框，设置文本框的ＭｕｌｔｉＬｉｎｇ属性 ’发送用户输入的内容设置为Ｔｒｕｅ即为多行显示，并将ＳｃｒｏｌＩＢａｒｓ属性 Ｗｉｎｓｏｃｋｌ．Ｓｅｎｄｄａｔｅ Ｔｅｘｔｌ．Ｔｅｘｔ值设置为２一Ｖｅｒｔｉｃａｌ加垂直滚动条。
窗体如图１ Ｅｎｄ Ｓｕｂ所示。
（３）有数据到达时，显示对方的数据内容。
Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｉｎｓｏｃｋｌ．ＤａｔａＡｒｒｉｖａｌ（ＢｙＶａｌ ｂｙｔｅｓｔｏｔａｌ Ａｓ Ｌｏｎｇ） Ｄｉｍ ｒｅｃ Ａｓ Ｓｔｒｉｎｇ ’接收对方数据并在文本框内显示 Ｗｉｎｓｏｃｋｌ．ＧｅｔＤａｔａ ｒｅｅ，ｖｂＳｔｒｉｎｇ Ｔｅｘｔ２．Ｔｅｘｔ＝ｒｅｅ Ｅｎｄ Ｓｕｂ 到这里已经完成【聊天Ａ】程序设计，保存并 将其编译成执行文件。
３．３建立【聊天Ｂ】程序 由于Ａ，Ｂ是平等的。
因此处理方式及流程 图１“聊天”程序的界面布局 一样，只需按上述原则在Ｆｏｒｍ—Ｌｏａｄ中设置好其 网络地址，其他部分则完全一样。
下面编写
代码： Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ—Ｌｏａｄ（） （１）在Ｆｏｒｍ—Ｌｏａｄ过程中设置网络地址，这里 ’设置双方网络地址要设置ＬｏｃａｌＰｏｒｔ，ＲｅｍｏｔｅＨｏｓｔ和ＲｅｍｏｔｅＰｏｒｔ属 Ｗｉｎｓｏｅｋｌ．ＬｏｃａｌＰｏｒｔ＝１９９７性。
为保证信息能够传送到相应程序，需按下面 Ｗｉｎｓｏｃｋｌ．ＲｅｍｏｔｅＨｏｓｔ＝”２０２．９９．６．１０１’’规则设置属性： Ｗｉｎｓｏｃｋｌ．ＲｅｍｏｔｅＰｏｒｔ＝１０２４ 【聊天Ａ】的ＲｅｍｏｔｅＨｏｓｔ设置为运行【聊天 Ｅｎｄ ＳｕｂＢ】程序的主机地址。
完成【聊天Ｂ】的设计，将其存盘并编译。
现 【聊天Ａ】的ＲｅｍｏｔｅＰｒｏｔ设置要与【聊天Ｂ】的 在可使用这个程序进行对话了，结果如图２所示。
ＬｏｃａｌＰｏｒｔ属性一致。
万方数据 ２０２００５年第２期 周 娟 陈向华：在ＶＢ中使用Ｗｉｎｓｏｃｋ控件建立基于ＵＤＰ协议的应用程序 图２运行着的聊天程序 如果要试用上面的例子，按Ｆ５键运行工程， 家万户。
然后在两个窗体的文本框中分别键人一些文本。
（２）创建一个服务器应用程序，作为多用户数键入的文字将出现在另一个窗体的文本框中。
据的汇入点。
这一用途和第一种用途配合使用， 不论怎么说，这段程序毕竟还是太简单了，尤 必将会为您带来丰厚的商业利润。
其是它的功能少，现有的功能也不完善，在用一段 （３）创建“聊天”应用程序。
我们已经设计了时间后就会发现它远远不能满足要求，但这都不 一个聊天程序，或许您可以将它设计得更好，像是Ｗｉｎｓｏｃｋ的问题。
而需要我们不断改进它，充 Ｍｉｃｒｏｓｏｆｔ Ｃｈａｔ或ｍｌＲＣ等流行的聊天软件一样，实它，扩展它的功能，增强它的容错性能。
只要您 成为市场上的抢手货。
会使用ＶＢ６．０编程，就可以逐步解决这些问题。
参考文献 ４结束语 〔１〕吴昌平．Ｖｉｓｕａｌ Ｂａｓｉｃ６．０程序设计〔Ｍ〕． 既然掌握了Ｗｉｎｓｏｃｋ控件在ＶＢ中建立ＵＤＰ 人民邮电出版社．程序的使用方法，我们就有理由设计出更实用、更 〔２〕牛力．Ｖｉｓｕａｌ Ｂａｓｉｃ ６编程宝典〔Ｍ〕．电子先进的软件来。
Ｗｉｎｓｏｃｋ控件一般有以下用途： 工业出版社． （１）创建收集用户信息的客户端应用程序，并 〔３〕段兴．Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０控件实用程序设计将收集的信息发送到某中央服务器。
比如，您可 〔Ｍ〕．人民邮电出版社．以使用这一用途来设计数据采集程序，将繁重的数据录入工作分散到基层，或者设计成在Ｉｎｔｅｒ． 本文作者周娟为机械工程系助教ｎｅｔ上进行客户调查和注册的部件，将它下载到千 陈向华为招生就业处助教 万方数据
相关文章
2013-10-19
