AutoRedraw的问题

[「已注销」]

请看以下代码，执行了Me.AutoRedraw = False以后，我尝试用其他窗口遮挡显示的文字，发现文字没有消失，不知道怎么回事？我的印象中Me.AutoRedraw = False的时候显示的文字被遮挡或最小化窗体就会消失的。


Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True
Print "文字"
Me.AutoRedraw = False

End Sub

[mhm0517]

Option Explicit 

Private Sub Form_Load() 
    Me.AutoRedraw = True 
    Print "文字"     '此处打印的文字时 autoredraw=True 因此不消失
    Me.AutoRedraw = False 
    Print "文字2"    '此处打印的文字时 autoredraw=False 因此消失
End Sub 

[mhm0517]

Option Explicit 

Private Sub Form_Load() 
    Me.AutoRedraw = True 
    Print "文字"     
        '此处打印的文字时 autoredraw=True 即此处打印的文字 具有自动重绘.
    Me.AutoRedraw = False 
    Print "文字2"    '此处打印的文字时 autoredraw=False 即此处打印的文字 不具有自动重绘.
End Sub 

[huyongsc]

你不能把Me.AutoRedraw = True 后输出，
Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True
Print "文字"
Me.AutoRedraw = False
Print "文字1"

End Sub

"文字1"消失，"文字"显示

[lyserver]

你如果想隐藏在AutoRedraw=True后绘制的文字,可以用以下方式:
Me.AutoRedraw = True
Me.Cls
Me.AutoRedraw = False
当然，还可以使用vbNotXorPen绘图模式，这样在同一个坐标点上重复绘制同样的内容后，会擦除掉原来的内容。

[lyserver]

如果想部分清除，可以在me_paint事件里使用line+背景色绘制一个矩形遮住原来的文字。

[clear_zero]

Option Explicit 

Private Sub Form_Load() 
    Me.AutoRedraw = True 
    Print "文字"     
        '此处打印的文字时 autoredraw=True 即此处打印的文字 具有自动重绘.
    Me.AutoRedraw = False 
    Print "文字2"    '此处打印的文字时 autoredraw=False 即此处打印的文字 不具有自动重绘.
End Sub 

[贝隆]

要文字消失，使用Cls方法即可，不需要用AutoRedraw

[lyserver]

TO Veron_04:
当设置了AutoRedraw=False后，是无法直接使用Cls清除掉原来设置AutoRedraw=True后绘制的内容的。

[「已注销」]

多谢!