使用TcpClient和TcpListener遇到的问题

czg1997 2002-12-09 07:13:07
我在作一个局域网通讯的程序,一个服务器端(TcpListener),一个客户端(TcpClient)。
服务器端用多线程监听。
现在有如下问题:
1,发送消息时的字符串,我是用“控制信息|名字|消息”,所以在接收端我是这样接收的

Private sub ReceivedMess(Byval strMess as String)
Dim arrRead() as string=split(strMess,"|") '提取控制信息
Select case arrRead(0)
case "SPEAK"
txtMess.AppendText(arrRead(1) & ":" & arrRead(2) & vbCRLF)
case "Timer"
Msgbox("Timer1")
Timer1.Enable=Ture
case "IE"
Msgbox("IE")
OpenIE()
End Sub

Private sub OpenIE()
System.Diagnostics.Process.start("Http://www.google.com") '打开网页
End Sub

Private sub Timer1_Tick(.....) handles Timer1.tick
Msgbox("Timer1 is Enable")
end sub

其中在Select case句中,两个Msgbox都能显示,Timer1开始Enable=False,但是当Msgbox("Timer1")
执行后,Timer1并不工作(msgbox("Timer1 is enable")不显示),当msgbox("IE")执行后,OpenIE()
也不执行,但是添加一个按钮呼叫OpenIE()就能执行。
请大虾们告诉我是怎么回事??
...全文
71 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧