昨天给大家的串口读写代码中,textbox的刷新频繁后会造成闪烁,所以今天改写一下无闪烁的代码。
更改的代码如下:
Private Sub Mcom_OnComm() '所有的通讯事件都可以激发MSComm1控件的OnComm事件
Select Case Mcom.CommEvent
Case comEvReceive'此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理
Text4.SelStart = Len(Text4.Text)
Text4.SelText = Mcom.Input
Case comEvSend'此处的代码可以进行当串口的发送缓冲区里有SThreshold个字符的处理
'龙卷风出品
End Select
End Sub
这样就可以安心的看你的串口读出数据了。