如何创建表单类的新实例，然后将其作为acDialog框打开（暂停其他代码）？

Question

问题

我有一个复杂的搜索表单，我需要多次打开（同时）以允许用户同时执行多个搜索。我发现用于打开窗体的实例（因为它是一类）的能力：

Option Compare Database 
Option Explicit 

'Array to hold Form Instances 
Private MyFormCollection(1 To 4) As Form_frmTest 

Private Sub cmd_CloneMe_Click() 
    Dim intCounter As Integer 

    For intCounter = 1 To 4 
     Set MyFormCollection(intCounter) = New Form_frmTest 
     MyFormCollection(intCounter).Caption = "Form #" & intCounter 
     MyFormCollection(intCounter).Visible = True 
    Next intCounter 

    Forms!frmTest.SetFocus 
End Sub 

这是打开而不是形式的多个实例的例子我会使用的最终代码因为我只需要每点击一次就打开一次，但可能会有其他已经打开！

但我不能找出一种方法来重复其中一个acDialog（所以调用函数暂停，直到你隐藏或关闭新的对话框形式）。下面是我通常会打开一个正常形态的方式（不是副本）：

Call DoCmd.OpenForm("SomeForm", acNormal, , , , acDialog) 

---

问题

我怎样才能打开窗体的一个新实例作为对话框（因此调用函数暂停，直到新窗体关闭或隐藏）？

感谢

Answer 1

您可以使用此代码来检查的形式是可见的：

Private Function IsVisible(intObjType As Integer, strObjName As String) As Boolean 
    Dim intObjState As Integer 
    intObjState = SysCmd(acSysCmdGetObjectState, intObjType, strObjName) 
    IsVisible = intObjState And acObjStateOpen 
End Function 

如果是的话，做什么，但等待：

Do While IsVisible(acForm, "frmInfo") 
    DoEvents 
Loop 

===== =============

好吧，另一个想法：你可以选择打开对话框模态a nd停止调用函数中的代码，或者使用更多的对话框并让调用函数运行。

我认为解决这个的唯一方法是对话框开放的柜台，并拒绝做在调用函数中的任何时候计数仍> 0

Answer 2

您可以在名为写一个公共职能形式，直到该函数返回（通过关闭表单）调用方法被阻止。在下面的示例中，单击“完成”按钮可能会设置返回值

Option Explicit 
Private m_dlgResult As VbMsgBoxResult 

Public Function ShowDialog() As VbMsgBoxResult 

    m_dlgResult = vbCancel 
    Me.Show vbModal 
    ShowDialog = m_dlgResult 

End Function 

Private Sub Done_Click() 

    m_dlgResult = vbOK 
    Unload Me 

End Sub