VB中MDI窗体中如何判断一个窗体是否激活

2007-04-06 VB中MDI窗体中如何判断一个窗体是否激活: 时间: 2007-04-06 21:15:08 作者: admin 阅读次数: 1672; 字体大小: 小中大

Private Function ActivityForm(FromName As String) As Boolean 

    Dim Form As Form 

    For Each Form In Forms 

        If Form.Name = FromName Then 

            ActivityForm = True 

        Else 

            ActivityForm = False 

        End If 

    Next 

End Function