一个难题: 窗体显示问题

freesky

Private Sub Report_Open(Cancel As Integer)
      Forms("frmPay").Visible = False
      Forms("dlgPrint").Visible = False
      
End Sub

Private Sub Report_Close()
      Forms("frmPay").Visible = True
      Forms("dlgPrint").Visible = True

End Sub

"frmPay" 和 "dlgPrint" 的弹出方式和模式都设为真,当打开报表时两个窗体都被隐藏。但
关闭报表时只有"frmPay"被显示，这个问题如何解决。

Kiss-win

我这里有一个函数，大家看看有没有收藏价值：
Public Function Opclose(i As Integer)
Dim frm As Form, intI As Integer
    Dim intForms As Integer
    intForms = Forms.Count
    If intForms > 0 Then
        For intI = 0 To intForms - 1
          Set frm = Forms(intI)
             If i = 1 Then
                frm.Visible = False
             Else
                frm.Visible = True
             End If
        Next intI
    Else
    Exit Function
    End If
End Function

分别在Report的Open和Close事件中呼叫这个函数就行啦。

[此贴子已经被作者于2003-6-12 8:50:43编辑过]

hi-wzj

就是！把报表窗体最大化,其它的窗体自然就在后面看不见了. 根本不须编程

我要飞

楼上的方法很特别，思路很新。
又学了一招，谢谢。

freesky

在浪费了很多时间后才发现这个：

Modal（模式）属性用于指定窗体是否以模式方式打开窗体。如果窗体是以模式窗体打开的，
在将焦点移动到另一个对象之前，必须关闭此窗体。


Public Function FormsShow(isShow As Boolean)
      Dim frm As Form
      Dim strErr As String
     
      On Error GoTo Error_r
      
      If isShow Then
         For Each frm In Forms
             frm.Visible = True
         Next
         Set frm = Screen.ActiveForm
         frm.Modal = True
      Else
         For Each frm In Forms
             frm.Modal = False
             frm.Visible = False
         Next
      End If
      
Error_r:

End Function

Trynew

用API的ShowWindow函数，要先声明：
Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hWnd As Long, _
          ByVal nCmdShow As Long) As Long

Private Sub Report_Open(Cancel As Integer)
    apiShowWindow Forms("frmPay").hWnd, 0
    apiShowWindow Forms("dlgPrint").hWnd, 0
End Sub

Private Sub Report_Close()
    apiShowWindow Forms("frmPay").hWnd, 1
    apiShowWindow Forms("dlgPrint").hWnd, 1
End Sub

Cap

这样行不行,把报表窗体最大化,其它的窗体自然就在后面看不见了.

freesky

实际上我要实现的是让打开的报表显示在最前端，而要隐藏和显示的窗体都是正在输入数据的窗体，都不能关闭。我对API不熟，不知道有没有能解决这个问题的函数。

krts

请参照以下：
Private Sub Report_Open(Cancel As Integer)
      Forms("frmPay").Visible = False
      Forms("dlgPrint").Visible = False
      
End Sub

Private Sub Report_Close()
      docmd.openForm "frmPay"
      docmd.openForm  "dlgPrint"
End Sub

Trynew

Private Sub Report_Open(Cancel As Integer)
      Forms("frmPay").Visible = False
      DoCmd.Close acForm, "dlgPrint"      
End Sub

Private Sub Report_Close()
      Forms("frmPay").Visible = True
      DoCmd.OpenForm "dlgPrint"
End Sub

模式窗体原该如此，你可把第二个窗体的隐藏/显示改为关闭/打开，如果第二个窗体要保留什么状态，只有通过窗体参数编程控制了。