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

alex15

父窗口执行一个过程的时候会弹出子窗口（实际应用中子窗口是一个进度条），子窗口上有一个"取消"按钮，过秤运行结束后子窗口会自动消失回到父窗口的，请问的是如何当点击这个按钮后，自动让父窗口的这个过程停止。

期望是代码写在子窗口中而不是父窗口，因为子窗口(进度条)会在很多地方调用到，因此写在子窗口中只需要写一次，有利于代码的简化。

求助，谢谢~~

fjmxwrs

为什么不上传附件呢?

fjmxwrs

回复 alex15 的帖子

为什么不上传附件?

alex15

Copy of VBA .zip (198.63 KB, 下载次数: 21)

2011-7-5 10:45 上传

点击文件名下载附件 附件来了。子窗口就是点击Run后弹出的进度条对话框，需要点击取消的时候中断进程，回到主窗口。


想说明一下，之前想到一个办法：在子窗口里定义一个公开的变量让父窗口在运行时不断地判断，满足条件就Unload 子窗口 。

但是这个方法的缺点是判断这个变量，以及后续操作unload,以及exit sub的语句全部写在父窗口中，因为子窗口为进度条，所以很多地方都会调用到，这样也就是每个调用的地方(即父窗口很多地方)都需要拷贝相同的这段代码，这样造成代码不简化，而且如果要做一点小小的改变比如多加一个messagebox，需要在每个地方去手动改，容易出错。

因此很想知道如何从子窗口直接可以返回控制父窗口？这样把代码写在子窗口只需要一次，便于管理。

谢谢大家！

sanbe

你本来就需要调用DoEvents进行控件权调用，多一个变量无伤大雅
PS：我还是没看到附件

alex15

来啦附件，见上

leolee82

Private Sub CommandButton1_Click()
Dim li_rows_1 As Integer
Dim li_rows_2 As Integer
Dim li_row_1 As Integer   '计数变量
Dim li_row_2 As Integer   '计数变量
Dim aaa1() As String        '用变量充当数组上下限要用Redim语句重新声明数组
Dim aaa2() As String
Dim li_columns As Integer
Dim a1, a2, b1, b2 As Integer

li_rows_1 = Sheets("Reference").Range("A" & Sheets("Reference").Rows.Count).End(xlUp).Row
li_rows_2 = Sheets("To Compare").Range("A" & Sheets("To Compare").Rows.Count).End(xlUp).Row
li_columns = Sheets("To Compare").Range("A1").End(xlToRight).Column

ReDim aaa1(li_rows_1, li_columns) As String
ReDim aaa2(li_rows_2, li_columns) As String

w_main.Hide
w_progressbar.Show 0
For a1 = 2 To li_rows_1
    For b1 = 1 To li_columns
        If aaa Then GoTo CancelProcess
        aaa1(a1, b1) = Trim(Sheets("Reference").Cells(a1, b1).Value)
    Next
    Call progressbar("Loading Page1...", a1 / li_rows_1)
Next
'Unload w_progressbar
w_progressbar.Show 0
For a2 = 2 To li_rows_2
    For b2 = 1 To li_columns
        If aaa Then GoTo CancelProcess
        aaa2(a2, b2) = Trim(Sheets("To Compare").Cells(a2, b2).Value)
    Next
    Call progressbar("Loading Page2...", a2 / li_rows_2)
Next
'Unload w_progressbar

w_progressbar.Show 0
For a2 = 2 To li_rows_2
    For a1 = 2 To li_rows_1 'sheet1's row
        If aaa Then GoTo CancelProcess
        If aaa2(a2, 1) = aaa1(a1, 1) Then
                For b2 = 2 To li_columns
                    If aaa Then GoTo CancelProcess
                   If aaa2(a2, b2) <> aaa1(a1, b2) Then
                        
                        Sheets("To Compare").Cells(a2, b2).Interior.ColorIndex = 6
                   End If
                Next
            Exit For
        End If
        If a1 = li_rows_1 Then
            If aaa2(a2, 1) <> aaa1(a1, 1) Then
                Sheets("To Compare").Rows(a2).Interior.ColorIndex = 33
            End If
        End If
    Next
    Call progressbar("Proceeding...", a2 / li_rows_2)
Next
CancelProcess:
Unload w_progressbar
MsgBox ("Done")
w_main.Show 0
End Sub

alex15

sanbe 发表于 2011-7-5 11:08
你本来就需要调用DoEvents进行控件权调用，多一个变量无伤大雅
PS：我还是没看到附件

真不意思，请问能不能具体点。或者你改在那个excel里面传一下呀，本人菜鸟，感激不尽~

唯一期望的是主要代码写在子窗口中而不是父窗口，因为子窗口(进度条)会在很多地方调用到，因此写在子窗口中只需要写一次，有利于代码的简化。

sanbe

alex15 发表于 2011-7-6 17:54
真不意思，请问能不能具体点。或者你改在那个excel里面传一下呀，本人菜鸟，感激不尽~

唯一期望的是主 ...

我看了你的附件，有点头晕
当点取消时，你需要结束当前循环还结束整个查询？

sanbe

我就当你结束整个过程处理，你要结束循环，自行更改
先在模块中增加一个全局变量

1. 
   
2. Public bolExitFor As Boolean
   

复制代码

然后在进度条窗体中赋值给变量，同时关闭窗体

1. 
   
2. Private Sub CommandButton1_Click()
   
3.    bolExitFor = True
   
4.    Unload w_progressbar
   
5. End Sub
   

复制代码

再在主窗体中加入判断代码

1. 
   
2. If bolExitFor Then
   
3.         bolExitFor = False
   
4.         Exit Sub
   
5. End If
   

复制代码