[已解决]如何恢复控制面板窗体?

简

在控制面板点击其它窗体后，该控制面板就最小化在桌面左下角。

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

[ 本帖最后由 简 于 2008-11-30 22:45 编辑 ]

Henry D. Sy

假设，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

学习一下[:50]

简

喔，原来如此，但你这段代码还有个问题没解决，那就是，关闭b窗体后a窗体成为唯一打开的窗体，这时才能恢复。如果关闭b窗体后还有c窗体存在，那就不恢复a窗体，这段代码又应该如何判断如何写呢？

Henry D. Sy

Private Sub Form_Unload(Cancel As Integer)
If Forms.Count = 2 Then
        Forms!a.SetFocus
        DoCmd.Restore
    End If
End Sub

简

喔，原来如此，太谢谢你了。