vba子窗口中如何结束父窗口的过程

alex15

sanbe 发表于 2011-7-6 19:13
我就当你结束整个过程处理，你要结束循环，自行更改
先在模块中增加一个全局变量

哈，非常感谢斑竹的指点~~~~~

想问一下
“再在主窗体中加入判断代码

• If bolExitFor Then
•         bolExitFor = False
•         Exit Sub
• End If
  

”

                bolExitFor = False
                Exit Sub
这两句话能否写到其他某个地方，比如过程或者函数，或者其他什么地方，因为这样的话以后凡是使用到progressbar的地方我都可以直接调用那个过程或者函数，这样如果以后我还要在这两句话里面加入其他东西(比如msgbox)的话只需要加到那个过程或函数里面就可以了，不需要再一个个住窗体不同地方去编辑，这样就能够使代码简化，同时避免可能的遗漏编辑的可能。

非常感谢！！

sanbe

这个没想到有啥好的办法，所以没有替你改动，因为VBA并非面向对象的语言，必须加判断才能结束循环。
可以把函数改成这样，然后直接去函数进行判断，不去判断变量，实际运用没多大差距，离你的要求还是太远

1. 
   
2. 
   
3. Public Function progressbar(ls_label_string As String, li_percent) As Boolean
   
4. If bolExitFor Then
   
5.     progressbar = True
   
6.     bolExitFor = False
   
7.     Unload w_progressbar
   
8.     Exit Function
   
9. End If
   
10. With w_progressbar
    
11.         .Caption = ls_label_string
    
12.         .FrameProgress.Caption = Format(li_percent, "0%")
    
13.         .LabelProgress.Width = li_percent * 222
    
14.         DoEvents
    
15. End With
    
16. End Function

复制代码

然后调用改为：

1. 
   
2.     If progressbar("Proceeding...", a2 / li_rows_2) Then
   
3.         Exit Sub
   
4.      End If
   

复制代码

alex15

sanbe 发表于 2011-7-7 14:47
这个没想到有啥好的办法，所以没有替你改动，因为VBA并非面向对象的语言，必须加判断才能结束循环。
可以把 ...

哈，谢谢斑竹，已经算很接近了

你说的vba是面向对象，所以不能完美达到我的目标---这个是不是说我在一个对象上w_progressbar结束不了另外一个对象w_main正在执行的sub咯？ 而只能回到w_main去结束，是不是这个意思呢？ 我感觉归根结底就是这个事情能不能做了，能做，那就能完美达到我目标。

sanbe

alex15 发表于 2011-7-8 09:51
哈，谢谢斑竹，已经算很接近了

你说的vba是面向对象，所以不能完美达到我的目标---这个是不是说我在 ...

VBA并不是面向对象的语言，至少我不知道怎么做到

alex15

sanbe 发表于 2011-7-8 11:32
VBA并不是面向对象的语言，至少我不知道怎么做到

{:091:}恩，明白了，多谢斑竹帮助~~~