感覺(jué)問(wèn)題出在

姑蘇ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書(shū)未來(lái)市場(chǎng)廣闊!成為創(chuàng)新互聯(lián)建站的ssl證書(shū)銷(xiāo)售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18982081108(備注:SSL證書(shū)合作)期待與您的合作!
Form2.Show() '啟動(dòng)倒計(jì)時(shí)顯示窗口
這一句上。
這一句應(yīng)該只需要執(zhí)行一次就行了。
把它放在timer中,多次調(diào)用,造成假死。
Sub bc()
Dim cs As New qq163(AddressOf js)
Application.DoEvnts
Invoke(cs)
End Sub
并沒(méi)有看出什么地方可能導(dǎo)致程序假死,這排版也太亂了.不妨調(diào)試一下程序,當(dāng)出現(xiàn)你說(shuō)的"假死"后暫停一下程序,看看線程都卡在哪里.
另外,從設(shè)計(jì)上來(lái)看,你這里并不需要多線程操作.
你把
TextBox1.AppendText(SerialPort1.ReadExisting)
替換成
TextBox1.AppendText(SerialPort1.ReadLine)
SerialPort1.DiscardInBuffer()
試試看
我之前用ReadExisting也遇到過(guò)類似情況,后來(lái)?yè)Q成ReadLine就可以了
Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
TextBox1.AppendText(SerialPort1.ReadLine)?
SerialPort1.DiscardInBuffer()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If SerialPort1.IsOpen Then
SerialPort1.DiscardInBuffer() '清除數(shù)據(jù)接收區(qū)
SerialPort1.DiscardOutBuffer() '清除數(shù)據(jù)發(fā)送區(qū)
End If
TextBox1.Clear()‘清屏
分享名稱:vb.net假死的簡(jiǎn)單介紹
文章位置:http://chinadenli.net/article1/dsgchid.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制網(wǎng)站、云服務(wù)器、全網(wǎng)營(yíng)銷(xiāo)推廣、標(biāo)簽優(yōu)化、用戶體驗(yàn)、手機(jī)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
全網(wǎng)營(yíng)銷(xiāo)推廣知識(shí)