Foxtable(狐表)用户栏目专家坐堂 → [求助]TCP通讯的问题


  共有255人关注过本帖树形打印复制链接

主题:[求助]TCP通讯的问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:43599 积分:221437 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/10 9:51:00 [显示全部帖子]

    Private Sub ReceiveMsg()
        Try
        While True
            Dim packet As Byte() = New Byte(1024) {}
            nStream.Read(packet, 0, packet.Length)
            Dim str As String = Encoding.Default.GetString(packet)
            Dim txt = forms("窗口1").Controls("TextBox2")
            txt.Text = str
            'txt.Text &= iif(txt.text > "", vbcrlf, "") & str
        End While
        Catch ex As Exception
            MsgBox(ex.message)
        End Try
    End Sub

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:43599 积分:221437 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/10 11:47:00 [显示全部帖子]

可以不写数据类型,很多语言都有这个特性,叫类型推论,根据值反推类型。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:43599 积分:221437 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/15 9:06:00 [显示全部帖子]

设置不了

 回到顶部