平台的LIST窗体如何做成一样的

王萌萌　发表于：2017-04-14 13:58:36 　

复制

我在平台上列表窗体上做了2个窗口，但是新做的和自动生成的不同宽度。如何调整成一样的。

2个窗体的代码都一样

Private Sub Form_Open(Cancel As Integer)
ApplyTheme Me
LoadLocalLanguage Me
End Sub

Top

MDZZ 发表于：2017-04-16 08:33:13

平台的子窗体有自动调整大小的代码的你模仿下补上

Top

王岚发表于：2017-04-17 09:40:06

我根据你的代码，宽度可以了，但是高度不能根据第二个子窗体调整。

      On Error Resume Next
      Dim lngHeight As Long

      Me.sfrQuickQuery.Width = Me.InsideWidth - Me.sfrQuickQuery.Left
      Me.sfrList.Width = Me.InsideWidth - Me.sfrList.Left
      Me.sfrList_D.Width = Me.InsideWidth - Me.sfrList_D.Left
      lngHeight = Me.InsideHeight
      lngHeight = lngHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
      Me.sfrList.Height = lngHeight - Me.sfrList.Top
      Me.sfrList_D.Height = lngHeight - Me.sfrList_D.Top

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

平台的LIST窗体如何做成一样的