實現(xiàn)一對一聊天程序(編輯修改稿)
2025-08-03 13:48 本頁面
【文章內(nèi)容簡介】 （6）在窗體中添加兩個TextBox控件。將第一個命名為txtSend，第二個命名為txtOutput。（7）為窗體增加如下的代碼。UDP聊天服務(wù)器程序：PrivateSubCombo1_Click()=EndSubPrivateSubCheck1_Click() 39。設(shè)置隸書字體If=1Then=隸書Else=宋體EndIfEndSubPrivateSubCheck2_Click() 39。設(shè)置下劃線字體If=1Then=TrueElse=FalseEndIfEndSubPrivateSubCheck3_Click() 39。設(shè)置斜體字體If=1Then=TrueElse=FalseEndIfEndSubPrivateSubCheck4_Click() 39。設(shè)置字體大小為18榜If=1Then=18Else=10EndIfEndSubPrivateSubForm_Load()= ‘設(shè)置下拉框，選擇更多的字體DimiAsIntegerFori=0To1(i)NextWithUDPSever ‘控件的名字為UDPSever.RemoteHost= ‘服務(wù)器主機IP名稱.RemotePort=1001 ‘連接的端口號.Bind1002 ‘綁定到本地的端口EndWithEndSubPrivateS
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1