Option Explicit
Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
End Sub
Private Sub cncbtn_Click()
Lclpclbl.Caption = Winsock1.LocalHostName
Winsock1.RemoteHost = rmtpc.Text
Winsock1.RemotePort = rmtprt.Text
Winsock1.Bind lclprt.Text
End Sub
Private Sub sndbtn_Click()
Winsock1.SendData inpttxt.Text
rcvtxt.Text = rcvtxt.Text + Chr$(13) + Chr$(10) + inpttxt.Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rcvdata As String
Winsock1.GetData rcvdata
rcvtxt.Text = rcvtxt.Text + Chr$(13) + Chr$(10) + rcvdata
End Sub
uj5u.com熱心網友回復：
編譯的時候，一般出現錯誤的地方，ide都會指出來的，按照指示修改不就可以了么？這種問題還需要問？
uj5u.com熱心網友回復：
麻煩給出具體出錯地方，要不然不知道怎么修改uj5u.com熱心網友回復：
選單里選擇"全編譯運行", 然后看看錯在哪里. 找出未定義的變數轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/72157.html
標籤：VB基礎類
下一篇：求救下這個宏怎么做啊