扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:阿虎 来源:天极开发者网络 2007年11月9日
关键字:
Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click thThreadRead = New Thread ( New ThreadStart ( AddressOf Listen ) ) '以Listen过程来初始化线程实例 thThreadRead.Start ( ) '启动线程 Button1.Enabled = False Label1.Text = "服务已经启动!" Label1.ForeColor = Color.Red End Sub |
Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) Try thThreadRead.Abort ( ) '中止线程 tlTcpListen.Stop ( ) '关闭侦听 tcClient.Close ( ) nsStream.Close ( ) srRead.Close ( ) '释放资源 Catch End Try If disposing Then If Not ( components Is Nothing ) Then components.Dispose ( ) End If End If MyBase.Dispose ( disposing ) End Sub |
濠碘€冲€归悘澶愬箖閵娾晜濮滈悽顖涚摃閹烩晠宕氶崶鈺傜暠闁诡垰鍘栫花锛勬喆椤ゅ弧濡澘妫楅悡娆撳嫉閳ь剟寮0渚€鐛撻柛婵呮缁楀矂骞庨埀顒勫嫉椤栨瑤绻嗛柟顓у灲缁辨繈鏌囬敐鍕杽閻犱降鍨藉Σ鍕嚊閹跺鈧﹦绱旈幋鐐参楅柡鍫灦閸嬫牗绂掔捄铏规闁哄嫷鍨遍崑宥夋儍閸曨剚浠樺ù锝嗗▕閳ь剚鏌ㄧ欢鐐寸▕鐎b晝顏遍柕鍡嫹