模仿大佬的小小的聊天室

易语言 2020-01-25 17:41:18

模仿大佬的小小的聊天室

.子程序 _按钮2_被单击

.如果真 (客户1.发送数据 (编辑框5.内容 + “ 说:” + #换行符 + “&' ” + 编辑框4.内容) = 假)
信息框 (“发送失败”, 0, , )
返回 ()
.如果真结束
编辑框4.内容 = “”
编辑框4.获取焦点 ()

.子程序 _客户1_数据到达

编辑框3.加入文本 (取字节集数据 (客户1.取回数据 (), #文本型, ) + #换行符)