在不包含ActiveMdiChild的OpenForms之间循环

Question

我试图使一个循环运行的每个表单不包括activeform…我找到了一个解决方案，我可以使用ActiveForm.ActiveMdiChild.Name = FormRefresh.Name，但问题是，如果我有两个相同名称的形式，它不会在非活动形式中循环…

Public Shared Sub VerificaAlterações()
For Each FormRefresh As Form In Application.OpenForms()
If ActiveForm.ActiveMdiChild = FormRefresh Then Continue For ' Error here
' Do some work...
Next
End Sub

---

编辑:问题是Shared在Sub…我删除了它，它与下面的答案一起工作。

Answer 1

如果可以比较表单本身，就不需要比较表单的名称了:

If FormRefresh Is ActiveMdiChild Then Continue For