主题：怎么样理解窗口停止绘制

开发中遇到一个问题，图片的 text 窗口在执行下面代码后 text控件的值不显示了
        Functions.Execute("写库",1)
        Vars("i") =Vars("pdqty1")
t.Text= Functions.Execute("提取结果",s)
        e.Form.StopRedraw()
此主题相关图片如下：qq截图20190726134630.png

正常显示是这样

代码写在窗口的计时器里，每1000ms 读取一次串口数据，把串口数据赋值给text。想实现 在串口数据不变时 text不变在闪动。

Ports("COM1").Write(CHR(73))
Ports("COM1").Write(CHR(13))
Ports("COM1").Write(CHR(10))
'Ports("COM1").Write("SI")
'Ports("COM1").Write("CRLF")
Dim t As WinForm.TextBox = e.Form.Controls("t1")

Dim s As String=Ports("COM1").ReadExisting
t.Text= Functions.Execute("提取结果",s)

If s.Contains("S D")  Then
 'e.Form.ResumeRedraw()
    t.BackColor= Color.Red
    Vars("i") =0
    'vars("i")  =Functions.Execute("提取结果",s)
Else
   
    t.BackColor=Color.Gray

   
    Vars("pdqty1") = 0
    Vars("pdqty1") = CInt(t.Text)
    If Vars("i")<> Vars("pdqty1")
        Functions.Execute("写库",1)
        Vars("i") =Vars("pdqty1")
't.Text= Functions.Execute("提取结果",s)
        e.Form.StopRedraw()
    End If
End If

Ports("COM1").Write(CHR(73))
Ports("COM1").Write(CHR(13))
Ports("COM1").Write(CHR(10))
'Ports("COM1").Write("SI")
'Ports("COM1").Write("CRLF")
Dim t As WinForm.TextBox = e.Form.Controls("t1")

Dim s As String=Ports("COM1").ReadExisting

dim jg as string = Functions.Execute("提取结果",s)

if jg = t.text then return '如果结果和文本框内容一致就返回

t.Text= jg

If s.Contains("S D")  Then
    t.BackColor= Color.Red

Else
    t.BackColor=Color.Gray

end if

Functions.Execute("写库",1)