【文章內(nèi)容簡介】
d_Change() End SubfrmserverPrivate Sub Form_Load()39。將 LocalPort 屬性設(shè)置為一個(gè)整數(shù)。39。然后調(diào)用 Listen 方法。 = 1002 39。顯示客戶端的窗體。End SubPrivate Sub tcpServer_ConnectionRequest(ByVal requestID As Long)39。檢查控件的 State 屬性是否為關(guān)閉的。39。如果不是,39。在接受新的連接之前先關(guān)閉此連接。If sckClosed Then 39。接受具有 requestID 參數(shù)的39。連接。 requestIDEnd SubPrivate Sub txtSendData_Change()39。名為 txtSendData 的 TextBox 控件中39。包含了要發(fā)送的數(shù)據(jù)。當(dāng)用戶往文本框中39。鍵入數(shù)據(jù)時(shí),使用 SendData 方法39。發(fā)送輸入的字符串。 End SubPrivate Sub tcpServer_DataArrival _(ByVal bytesTotal As Long)39。為進(jìn)入的數(shù)據(jù)聲明一個(gè)變量。3