我有一个需要一些时间来处理的 Sub。我希望在处理时显示“请稍候”的图像出现在表单顶部,然后消失。我已经尝试过这段代码,但它不起作用:
Private Sub UserForm_Initialize ()
Image1.visible=False
End Sub
Sub CommandButton1_Click ()
Image1.visible=True
'Here goes the process
Image1.visible=False
End Sub
那可能吗?
最佳答案
添加 DoEvents 使 VBA 能够处理重绘事件
Sub CommandButton1_Click ()
Image1.visible=True
DoEvents
'Here goes the process
Image1.visible=False
End Sub
关于vba - 将可见的图像从 False 更改为 True 并在用户窗体中的进程中返回,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33694906/