快速开发平台(企业版)--2.0.3企业版快速开发平台的小漏洞修改方法

来源:www.accessgood.com 点击数:5398 　 | 收藏 | 复制

时　间:2015-01-03 14:14:06
作　者:红月 ID：1424 城市：庆阳
摘　要:企业版2.03的小漏洞的修改方法
正　文:

用系统管理员窗体下面没有滚动条及记录数，其他用户登录有记录及下面的滚动条，是怎么回事?

UMVsoft-刘师义 14:50:49

你把主界面窗体的“调整大小”事件过程的代码换成下面这个试试：

UMVsoft-刘师义 14:50:50

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

Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店

【打印此文】【关闭窗口】