Private Sub Form_Resize()
Dim lngDetailHeight As Long
Dim lngInsideWidth As Long
Dim frm As Form
Me.Width = 31680
Me.Section(acDetail).Height = 31680
lngDetailHeight = Me.InsideHeight
If Me.Section(acHeader).Visible Then lngDetailHeight = lngDetailHeight - Me.Section(acHeader).Height
If Me.Section(acFooter).Visible Then lngDetailHeight = lngDetailHeight - Me.Section(acFooter).Height
If lngDetailHeight < 0 Then lngDetailHeight = 0
lngInsideWidth = Me.InsideWidth
If Me.lblResize.Left > lngInsideWidth * 0.8 Then
Me.lblResize.Left = lngInsideWidth * 0.8
End If
Me.lblResize.Height = lngDetailHeight
Me.ocxBanner.Move 0, 0, lngInsideWidth + 30
Me.ocxTreeMenu.Move 0, 0, Me.lblResize.Left, lngDetailHeight
Me.sfrDivision.Move Me.ocxTreeMenu.Width, 0, Me.lblResize.Width, lngDetailHeight
Me.lblNodePath.Move Me.lblResize.Left + Me.lblResize.Width + 15, 0
Me.lblNodePath.Width = Me.InsideWidth - Me.lblNodePath.Left
Me.sfrChild.Width = 30
Me.sfrChild.Left = Me.lblNodePath.Left
If Me.sfrChild.SourceObject = Me.Name & "_HomePage" Then
Me.sfrChild.Top = 0
Else
Me.sfrChild.Top = Me.lblNodePath.Height
End If
If lngDetailHeight > 0 Then
Me.sfrChild.Height = lngDetailHeight - Me.sfrChild.Top
End If
If lngInsideWidth > Me.sfrChild.Left Then
Me.sfrChild.Width = lngInsideWidth - Me.sfrChild.Left
End If
Me.lblNoPermissionTip.Width = 30
Me.lblNoPermissionTip.Left = Me.sfrChild.Left + 120
Me.lblNoPermissionTip.Width = Me.sfrChild.Width - 120
Me.Width = 0
Me.Section(acDetail).Height = 0
For Each frm In Forms
If frm.Visible And frm.PopUp Then
ApiShowWindow frm.Hwnd, SW_SHOWMINIMIZED
ApiShowWindow frm.Hwnd, SW_SHOWMAXIMIZED
End If
Next
End Sub
|