在VBA中重绘UserForm

Question

我在VBA中有一个用户表单，我想在方法中间重绘/更新它。

当该方法被称为上按一下按钮，功能如下：

UsrForm.Field1.Value = "" 
UsrForm.Field2.Value = "" 
UsrForm.Label1.Caption = "LOADING..." 

/*Processing occurs*/ 

UsrForm.Field1.Value = val1 
UsrForm.Field2.Value = val2 
UsrForm.Label1.Caption = "DONE" 

但是，更新的形式仅在完成该方法时，会发生明显的。我得到val1，val2和“完成”，但没有“LOADING ...”消息。有没有办法在方法中间重绘？

Answer 1

加载消息后添加UsrForm.Repaint：

UsrForm.Field1.Value = "" 
UsrForm.Field2.Value = "" 
UsrForm.Label1.Caption = "LOADING..." 
UsrForm.Repaint 
'...