<![CDATA[代码设计工作室]]> http://www.designcoding.com/ zh VB中MDI窗体中如何判断一个窗体是否激活 http://www.designcoding.com/Article.aspx?ID=22 http://www.designcoding.com/Article.aspx?ID=22 VB6.0 VB中MDI窗体中如何判断一个窗体是否激活

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
]]> 2007-04-06 21:15:08 http://www.designcoding.com/Article.aspx?ID=22