子窗体大小高整

强　发表于：2010-06-19 15:33:43 　

Private Sub Form_Resize()
On Error Resume Next
Me.表1子窗体.Width = Me.InsideWidth
End Sub

以上代码可让子窗体跟着主窗体调整大小的宽度，请问调整高度的代码是什么？

wj.s 发表于：2010-06-19 15:39:00

' 子窗体的高度等于主窗体的1/2

Me.表1子窗体.Height = Me.InsideHeight / 2

朱维强发表于：2010-06-19 20:47:35

按比例不成哦，扩大多少，子窗体就要扩大多少

wj.s 发表于：2010-06-20 12:56:18

Me.表1子窗体.Height = Me.InsideHeight

朱维强发表于：2010-06-21 13:55:23

Me.表1子窗体.Height = Me.InsideHeight 这个也不成吧，子窗体的高度不等于主窗体，只是要做到，子窗体要随主窗体变大而变大

wj.s 发表于：2010-06-21 15:03:23

你要学会变通呀

.Height 表示了控件(此处是子窗体)的高度

.InsideHeight 表示了主窗体的高度

要保持子窗体的高度随窗体的高度变化而化,而边距不变(宽度同理),我们假设原始的子窗体离上边距1CM,下边距0.5CM,那我们可以变化上述代码如下:

' Me.InsideHeight - (1 + 0.5) * 567:窗体高度-(上边距+下边距)*567(将CM转化为缇,VBA的计算单位)

Me.表1子窗体.Height = Me.InsideHeight - (1 + 0.5) * 567

陈福祥发表于：2010-06-21 19:17:22

子窗体也是控件，Michaelx 增经做过一个例子“控件随窗体等比缩放 ”。去查看一下吧！

朱维强发表于：2010-06-22 09:37:29

谢谢WJ.S及陈福祥的帮助，WJ.S给出567的单位换算太好啦，我曾试找出这种换算数字都不理想，太谢谢啦！

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

Access交流中心