论坛 › Visual Basic › 新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~

生于青春 发表于 2013-1-3 20:13

新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~

Option Explicit

Private Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub

Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

Private Sub Form_Load()

End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub

发表于 1970-1-1 08:00

查看完整版本: 新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~