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

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

 

正常显示是这样

 

此主题相关图片如下：qq截图20190726134914.png

想停止绘制窗口，但还想text上面有值

代码写在窗口的计时器里，每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

谢谢 我试试