最新使用vb設(shè)計(jì)聊天室多點(diǎn)對(duì)多點(diǎn)網(wǎng)絡(luò)程序設(shè)計(jì)(參考版)
2025-07-10 14:30本頁面
【正文】 圖6 編輯客戶端文件傳輸窗口運(yùn)行結(jié)果圖7 運(yùn)行客戶端主窗口圖8 客戶端進(jìn)行連接圖9 輸入服務(wù)端端口號(hào)圖10 輸入服務(wù)端IP地址………………五、設(shè)計(jì)總結(jié)…………六、設(shè)計(jì)心得…………七、參考文獻(xiàn)………………。) amp。 + 1 Status 接收數(shù)據(jù)... amp。 NewArrival$ DataCntamp。 Data$ Case CloseFile 39。 \ amp。 server accepted connection bReplied = True Status 連接. Case ServerClosed Form_Load Case OpenFile 39。Private Sub cmdSend_Click() Dim FName_Only As String If txtFileName = Then MsgBox 你沒有選擇要發(fā)送的文件..., vbCritical Else If sckClosed Then FName_Only$ = GetFileName(txtFileName) SendFile FName_Only$ End If End IfEnd Sub主要作用：發(fā)送文件。Private Sub cmdBrowse_Click() If Not vbCancel Then txtFileName = End IfEnd Sub主要作用：通過通用對(duì)話框打開需要傳送的文件。) amp。 + 1 Status Recieving Data... amp。 NewArrival$ DataCntamp。 close the file Close 1 Status 文件傳輸... Pause 3000 Status 偵察... (連接) Case Else 39。 Data$ Open Fname$ For Binary As 1 Status 文件打開.... amp。 open the file Dim Fname As String Fname$ = amp。Private Sub Form_Unload(Cancel As Integer) SendData 服務(wù)器關(guān)閉, Pause 500 EndEnd SubPrivate Sub tcpServer_Close() If sckClosed Then Form_Load End SubPrivate Sub tcpServer_ConnectionRequest(ByVal requestID As Long) On Error GoTo IDERROR If sckClosed Then requestID bInconnection = True Status 偵察... 連接. SendData Accepted, Exit SubIDERROR: MsgBox , vbCriticalEnd Sub主要作用：判斷是否接收信息。 vbC
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1