Office中国论坛/Access中国论坛

标题: [已解决]如何恢复控制面板窗体? [打印本页]
作者: 简    时间: 2008-11-30 11:00
标题: [已解决]如何恢复控制面板窗体?
在控制面板点击其它窗体后，该控制面板就最小化在桌面左下角。

我想请教的是，当关闭其它窗体使控制面板成为唯一打开的窗体时，又如何将控制面板窗体恢复到正常状态，而不是最小化状态呢？

[ 本帖最后由 简 于 2008-11-30 22:45 编辑 ]
作者: Henry D. Sy    时间: 2008-11-30 13:22
假设，a 为控制面板，a中有一按钮command0，b 为其他窗体

那么，在a中写下
  1. Private Sub Command0_Click()
  2.     DoCmd.OpenForm "b"
  3.     Me.SetFocus
  4.     DoCmd.Minimize
  5. End Sub
复制代码


在b中写下
  1. Private Sub Form_Unload(Cancel As Integer)
  2.     Forms!a.SetFocus
  3.     DoCmd.Restore
  4. End Sub
复制代码
作者: laosanjie    时间: 2008-11-30 21:33
学习一下[:50]
作者: 简    时间: 2008-11-30 21:33
喔，原来如此，但你这段代码还有个问题没解决，那就是，关闭b窗体后a窗体成为唯一打开的窗体，这时才能恢复。如果关闭b窗体后还有c窗体存在，那就不恢复a窗体，这段代码又应该如何判断如何写呢？
作者: Henry D. Sy    时间: 2008-11-30 21:57
Private Sub Form_Unload(Cancel As Integer)
If Forms.Count = 2 Then
        Forms!a.SetFocus
        DoCmd.Restore
    End If
End Sub
作者: 简    时间: 2008-11-30 22:31
喔，原来如此，太谢谢你了。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3