userform不能正常显示

nzd444

各位高手，附件中有个userform，为蓝色图片，在sheet-1中有个按钮，这个按钮给sheet-2一定区域赋值，在赋值的过程中会一直显示userform所调用的图片，但是为什么会显示白色屏幕，按道理是有蓝色图片的啊，我需要userform的showmodal为false，即图片正常显示，后台程序继续运行，运行完毕，unload userform。请高手指点下。要调用的userform需全屏。
多谢指点

wpxxsyzx

你的代码，加一句试试
Private Sub CommandButton1_Click()
   
    UserForm1.Show
    DoEvents
   Sheets("1").Range("a1:aj1040000") = 1000
      
   
    Unload UserForm1
   
    With ThisWorkbook
    .Saved = True
    End With
End Sub

nzd444

wpxxsyzx 发表于 2011-10-13 22:19
你的代码，加一句试试
Private Sub CommandButton1_Click()
   

恩 可行！  能详细解释下这句代码吗，为什么加了就显示呢，这个代码和图片的显示为什么有关系？多谢！

wpxxsyzx

nzd444 发表于 2011-10-13 22:32
恩 可行！  能详细解释下这句代码吗，为什么加了就显示呢，这个代码和图片的显示为什么有关系？多谢！

DoEvents 函数
请参阅     示例     特性

转让控制权，以便让操作系统处理其它的事件。

语法

DoEvents( )

说明

DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。

DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。

DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。

小心 确保以 DoEvents 放弃控制权的过程，在第一次 DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用 DoEvents，因为此时不能放弃控制权。

nzd444

wpxxsyzx 发表于 2011-10-13 22:35
DoEvents 函数
请参阅     示例     特性

能按照这个例子说说吗，这个有点书面，我就想知道没有这句为什么userform是白色的花屏，而有了这句userform就能正常显示了~

xy5286243

wpxxsyzx 发表于 2011-10-13 22:19
你的代码，加一句试试
Private Sub CommandButton1_Click()
   

如果 我想在userform 上 加个按钮，   在后台赋值的时候， 按下按钮， 停止赋值
这个处理怎么加啊  
现在加了DoEvents   只是让userform 可以正常表示了，  但是不能对userform本身进行操作
能帮我解决下么？ 多谢了

imdouba

wpxxsyzx 发表于 2011-10-13 22:35
DoEvents 函数
请参阅     示例     特性

太专业了，谢谢分享。