永发信息网

一个关于VB.net的简单问题 高分悬赏

答案:2  悬赏:70  手机版
解决时间 2021-01-25 04:29
  • 提问者网友:川水往事
  • 2021-01-24 08:10
Dim remoteEP As New IPEndPoint(Net.IPAddress.Parse("192.168.21.101"), 8080)
cliSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Try
cliSocket.Connect(remoteEP)
ListBox1.Items.Add("连接服务端成功!")
IsConnected = True

myThread = New Thread(AddressOf ReciveMsg)
myThread.Start()
Catch ex As Exception
ListBox1.Items.Add(ex.Message)
End Try
这段代码我想放在按钮里面设置完IP后再运行这段代码,可是这样会卡死只能一开始设置好端口和IP
最佳答案
  • 五星知识达人网友:鸽屿
  • 2021-01-24 08:24
加个文本框textbox1输入IP地址。再加个按钮button1,
双击button1,贴上你的上面这段代码。
把第一行改成:

Dim remoteEP As New IPEndPoint(Net.IPAddress.Parse(textbox1.text), 8080)
全部回答
  • 1楼网友:平生事
  • 2021-01-24 09:20
第一行option explicit,写了这句,程序中用到的变量就一定要先声明才能用。(option你打多了个s) 第二行和最后一行就是一个过程的开始和结束,你这的是窗口单击过程。 第三行是把a,b,c定义为整型的动态变量(后面两个integer打多了个n了) 第四行是分别给变量b,c赋值。 第五行程序先是运算了后面的b=c,这个是关系运算,是判断b,c的值是否相等,因为c定义的是整型,所以,c的值是6,后面的0.5不算在内的。所以b=c是正确的,就是true,而现在要给整型变量a赋整型值,所以赋的是-1,(vb中true的值为-1,false的值为0)所以最后输出的是-1。 第六行就是在当前窗口打印出a的值。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯