窗体的可见性问题

yj11252551

我有两个窗体，A和B。当B打开并处于当前，此时A也处于打开状态并不可见。如何让B关闭时使A可见并处于当前呢？

andymark

在Ｂ的Unload事件加入判断

Private Sub Form_Unload(Cancel As Integer)

    If IsLoaded("Ａ") Then
        Forms!Ａ.Visible = True
    End If
End Sub
Function IsLoaded(ByVal strformName As String) As Integer

    Const OBJ_STATE_CLOSED = 0
    Const DESIGN_VIEW = 0
   
    If SysCmd(acSysCmdGetObjectState, acForm, strformName) <> OBJ_STATE_CLOSED Then
        If Forms(strformName).CurrentView <> DESIGN_VIEW Then
            IsLoaded = True
        End If
    End If
End Function