如何在不同的線程中使用Application.OpenForms的代理

Question

這是我起牀的代碼，它沒有錯誤，但它似乎沒有工作。可以以某種方式告訴我它有什麼問題嗎？

 Dim frmCurrentForm As Form 
     Dim wasFocused As Boolean = False 

     For Each frmCurrentForm In Application.OpenForms 
      If Not frmCurrentForm Is Nothing Then 
       Dim action As Action(Of Form) 
       action = Sub(form) 
          If form.Focused() Then 
           Dim failedLoginForm As New frmFailedLogin 
           failedLoginForm.setError("failed blah blah") 
           'failedLoginForm.Parent = form 
           failedLoginForm.StartPosition = FormStartPosition.CenterParent 
           failedLoginForm.ShowDialog() 
           wasFocused = True 
          End If 
         End Sub 

       If (frmCurrentForm.InvokeRequired) Then 
        frmCurrentForm.Invoke(action, New Object() {frmCurrentForm}) 
       Else 
        action(frmCurrentForm) 
       End If 

       If wasFocused Then 
        Exit For 
       End If 
      End If 
     Next 

Answer 1

，而不是使用重點，我不認爲作品非常好形式，可以嘗試使用Form.ActiveForm：

Dim frmCurrentForm As Form 

    frmCurrentForm = Form.ActiveForm 
    If Not frmCurrentForm Is Nothing Then 
     Dim action As Action(Of Form) 
     action = Sub(form) 
        Dim failedLoginForm As New Form2 
        failedLoginForm.setError("failed blah blah") 
        failedLoginForm.StartPosition = FormStartPosition.CenterParent 
        failedLoginForm.ShowDialog(form) 
       End Sub 

     If (frmCurrentForm.InvokeRequired) Then 
      frmCurrentForm.Invoke(action, New Object() {frmCurrentForm}) 
     Else 
      action(frmCurrentForm) 
     End If 
    End If