Office中国论坛/Access中国论坛

标题: 窗体的可见性问题 [打印本页]

作者: yj11252551 时间: 2006-7-23 05:21
标题: 窗体的可见性问题
我有两个窗体，A和B。当B打开并处于当前，此时A也处于打开状态并不可见。如何让B关闭时使A可见并处于当前呢？

作者: andymark 时间: 2006-7-23 05:40
在Ｂ的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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)