文件名称：其它代码-VB网络程序设计
文件大小：1.97MB
文件格式：PPT
更新时间：2024-05-15 03:16:57
VB网络程序设计
（2）其它代码 Private Sub WinsockClient_DataArrival(ByVal bytesTotal) ’当收到服务器发来的数据时，完成以下工作： ’（1）日期数据类型接收数据； ’（2）设置本机的系统日期 ’定义一个日期类型数据变量 Dim MyDate As Date ’以日期数据类型接受服务器日期数据 WinsockClient.GetData MyDate,VbDate ’使本机的系统日期等于服务器日期 Date=MyDate End Sub *