比如有2个form,form1,form2....

Question

比如有2个form,form1,form2,在执行form1里的程序的某一个时候会去执行form2里面的程序，怎样使在执行完form2里面的程序并退出form2后，使程序继续在form1的程序往下运行？

Answer 1

dim frmNew as new form2
frmNew.show
.
.
.
.

Answer 2

使用模式窗体Option ExplicitPrivate Sub Command1_Click()
Form2.Show vbModal
MsgBox "窗体2被关闭"
End Sub

Answer 3

最好把FORM1原来的过程写到两个函数中，比如：
'''''''''''form1中
function a()
 ...
 dim f2 as new form2
 f2.c
 set f2=nothing
end functionfunction b()
 ...
end functin'''''''''''form2中
function c()
 ...
 dim f1 as new form1
 f1.b
 set f1=nothing
end function
这样控置起来就方便了!

Answer 4

第一二种方法好像行不通！在具体一点：
比如在form2中有几button执行相关的程序， 当我按"End"button后就退出form2回到form1后接着继续执行form1中的程序，应该怎样做？

Answer 5

在Form1中窗体申明区声明Form2的实例啊
Dim frmDoForm2 As Form2Private Sub A()
    Do Until 循环条件
        If ××× Then
            Set frmDoForm2 =New Form2
            Call frmDoForm2.DoWork()
            Set frmDoForm2 =Nothing
        End If
        Doevents
    Loop
End SubPrivate Sub EndButton_Click()
    If Not frmDoForm2 Is Nothing Then
        frmDoForm2.bContinue =False
    End If
End Sub然后在Form2中定义一个Public变量。
Public bContinue As BooleanPublic Sub DoWork()
    bContinue =True
    Me.Show
    Do Until bContinue =False
        ·
        ·
        ·
        Doevents
    Loop
    Unload Me
End Sub

Answer 6

方法如下：
创建一个Form1,Form2,两个Form都有一个CommandButton
Form1代码如下：Private Sub Command1_Click()
    MsgBox "现在进入Form2"
    Form2.Show 1
    MsgBox "回到Form1了,可以继续执行Form1的代码"
End SubForm2代码如下:Private Sub Command1_Click()
    MsgBox "现在退出Form2,返回到Form1"
    Unload Me
End Sub

Answer 7

行了
form1中定义一个public 变量public aa string
按钮中代码
Private Sub Command2_Click()
    aa=""
    Form2.Show 1
    Do While 1
        If aa = "aa" Then
            MsgBox "测试 "
            Exit Sub
        End If
    Loop
End Subform2中退出按钮代码Private Sub Command1_Click()
    Form1.aa = "aa"
    Unload Me
End Sub满足你的要求，form2显示，点击form2按钮执行代码，退出form2后返回form1继续执行
form1中的程序

Answer 8

由于我的form为MDIChild,所以以上有几位朋友的方法不能使用。请问Rick110AAA：
那我应该如何处理form2中的其他button的事件呢？

Answer 9

最好把FORM1原来的过程写到两个函数中，比如：
'''''''''''form1中
function a()
 ...
 dim f2 as new form2
 f2.c
 set f2=nothing
end functionfunction b()
 ...
end functin'''''''''''form2中
function c()
 ...
 dim f1 as new form1
 f1.b
 set f1=nothing
end function
这样控置起来就方便了!支持！

Answer 10

你不要将太多的代码全写在显示Form2的代码段中，你点击Form1.命令按钮，显示Form2,然后在Form2的Unload中调用From1的子程序，
例如你要在显示Form2后执行Form1中的Sub2程序，只要将sub2设置为public即可在Form2中调用.