更改Label的Font,会导致整个窗体重画,不知道是不是VB不完善的地方?

Question

当Label为透明时,更改Label的Font,会导致整个窗体重画,例如下面的代码:
'在窗体中添加一个Label控件
Private Sub Form_Load()
    Label1.BackStyle = 0
    Me.AutoRedraw = False
End SubPrivate Sub Form_Paint()
    debug.print "Paint"
    Set Label1.Font = Me.Font
End Sub
运行,不断Paint,CPU资源占用100%!这是为什么?如何解决这个问题?

Answer 1

请改为：
Private Sub Form_Load()
    Label1.BackStyle = 0
    Me.AutoRedraw = False
End SubPrivate Sub Form_Paint()
    Debug.Print "Paint"
    If Label1.Font <> Me.Font Then Set Label1.Font = Me.FontEnd Sub

Answer 2

个人认为楼主的问题反映了另一个问题,窗体是否应该重画,建议看一下RedrawWindow函数的使用,以便应用到其他方面.