如何判断窗体程序是否执行完成？

Question

我在一个窗体按钮中用了下面的选择语句
 Select Case wordtt
     Case "01"
     frmMain01.Show
     Case "02"
     frmMain02.Show
     Case "03"
     frmMain03.Show
     
    End Select
我想在执行CASE “01”中的frmMain01.Show时程序进入等待状态，等窗体frmMain01执行完毕后在执行CASE “02”语句，该如何实现呀？

Answer 1

你就不能frmMain01.load事件里写
frmMain02.Show
frmMain02.load事件里写frmMain03.Show

Answer 2

什么意思，wordtt等于01的话，下面的case就没用了，你还要延时干吗？

Answer 3

是一个循环呀？全部代码如下：
Dim i As Integer
   ssql = "select * from ksct"
adors.Open ssql, adoconn
   adors.MoveFirst
   With adors
     If Not .BOF Or Not .EOF Then
       For i = 1 To 21
       qqq = .Fields("zkzh")
      qhjpd = .Fields("pd")
      wordtt = .Fields("word")
       
       
     If qhjpd = False Then
         Set adoconn = CreateObject("adodb.connection")
         Set adors = CreateObject("ADODB.Recordset")
             adoconn.Open "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=D:\kspf;"
             ssql = "update ksct set wordcj=1 where zkzh='" & Form1.qqq & " ' "
             adors.Open ssql, adoconn, 3, 3
        
      Else            ' MsgBox qqq
   If Dir("d:\kspf\word.doc") <> "" Then
             Kill "d:\kspf\word.doc"
             Else
             MsgBox "该文件不存在!"
    End If
    
    Select Case qqq
    
    Case "1200010101"
    
    MsgBox qqq
     MsgBox wordtt
     
     FileCopy "d:\kspf\1200010101\word.doc", "d:\kspf\word.doc"
     wordtt = .Fields("word")
     
     Select Case wordtt
     Case "01"
     MsgBox "调用程序01"
     frmMain01.Show
     Case "02"
     frmMain02.Show
     Case "03"
     frmMain03.Show
     
    End Select
     
     Case "1200010102"
     
      MsgBox qqq
      MsgBox wordtt
      
     FileCopy "d:\kspf\1200010102\word.doc", "d:\kspf\word.doc"
     wordtt = .Fields("word")
    
     Select Case wordtt
     Case "01"
     MsgBox "调用程序01"
     frmMain01.Show
     Case "02"
     frmMain02.Show
     Case "03"
     frmMain03.Show
     
    End Select
    
     Case "1200010103"
     
      MsgBox qqq
      MsgBox wordtt
     
     FileCopy "d:\kspf\1200010103\word.doc", "d:\kspf\word.doc"
     wordtt = .Fields("word")
    
      Select Case wordtt
     Case "01"
     MsgBox "调用程序01"
     frmMain01.Show
     Case "02"
     frmMain02.Show
     Case "03"
     frmMain03.Show
     
    End Select
    
    
    Case "1200010104"
    
    MsgBox qqq
      MsgBox wordtt
    
     FileCopy "d:\kspf\1200010104\word.doc", "d:\kspf\word.doc"
     wordtt = .Fields("word")
    
     Select Case wordtt
     Case "01"
     MsgBox "调用程序01"
     frmMain01.Show
     Case "02"
     frmMain02.Show
     Case "03"
     frmMain03.Show
     
    End Select
    
    
    
    End Select
    
    
    
    
    
             
      End If
         .MoveNext
       
       Next
      
     End If
   End With