VB语言程序设计教程杨忠宝康顺哲第12章网络应用程序设计课件教学.pptVIP

第12章 网络应用程序设计 重 点 网络基础 Winsock控件 难 点 Winsock控件 Internet Transfer控件 12.1 网络基础 12.1 网络基础 12.1 网络基础 12.1 网络基础 12.1 网络基础 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.2 Winsock控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 12.3 WebBrowser控件 PPT研究院 POWERPOINT ACADEMY ② “连接”按钮 单击“连接”按钮后，调用Winsock控件的Connect方法向服务器发出连接请求。代码如下： Private Sub cmdConnect_Click() scktcpClient.Close 关闭上一次未成功的连接请求 scktcpClient.Connect 向服务器发出连接请求 End Sub ③ 服务器接受请求 服务器接受请求后，会触发下列事件。代码如下： Private Sub scktcpClient_Connect() 连接请求成功 Label_State.Caption = 成功连接服务器： scktcpClient.RemoteHostIP 显示服务器的ip地址 txtSendData.SetFocus cmdConnect.Enabled = False End Sub 掌握 ④ 发送数据 判断文本框txtSendData中是否按下了回车键，如果是则调用SendData方法将回车键前面的数据发送给服务器，并同时显示在下方的聊天文本框txtShow中。代码与服务器端类似。代码如下： Private Sub txtSendData_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 判断是否按下了回车键 If scktcpClient.State = sckConnected Then 判断Winsock组件是否处于连接状态 scktcpClient.SendData 客户端 Time vbCrLf txtSendData.Text 发送数据 If Len(txtShow.Text) = 0 Then txtShow.Text = 客户端 Time vbCrLf txtSendData.Text Else txtShow.Text = txtShow.Text vbCrLf 客户端 Time vbCrLf txtSendData.Text End If txtSendData.Text = 这两条语句的功能是使滚动条向下滚动，始终显示下方最新的聊天数据 txtShow.SelLength = 0 txtShow.SelStart = Len(txtShow.Text) Else MsgBox 目前没有连接服务器，请单击“连接”按钮！ End If