根据屏幕大小窗体中子窗体自适应调整

herry2003aa

无意中想到的调整窗体控件大小自适应的方法，代码不完美，但可以给部分人一些思路，希望有所帮助。其实可以把代码写成函数，在窗体中调用，欢迎大神完善。

herry2003aa

怎么附件没有上传上来

herry2003aa

Option Compare Database
Public x1, y1, a1, b1 As Integer



Private Sub Form_Timer()
x1 = Me.WindowWidth
y1 = Me.WindowHeight
'a1 = Me.Label1.Width
b1 = Me.表1子窗体.Width
Me.Text6 = x1
Me.表1子窗体.Width = 3 * (x1) / 4
Me.表1子窗体.Height = 3 * (y1) / 5
'Me.Label1.Left = (x1 - a1) / 2
Me.表1子窗体.Left = (x1 - b1) / 2
Me.Label0.Left = x1 - 2200
Me.Label4.Left = x1 - 1500
Me.Label5.Left = x1 - 1000
'Me.InsideWidth = x1

End Sub

herry2003aa

不知道为啥，附件上传不见了，看下面代码吧

herry2003aa

herry2003aa 发表于 2019-5-21 16:32
Option Compare Database
Public x1, y1, a1, b1 As Integer

请无视无用的代码

roych

herry2003aa 发表于 2019-5-21 16:32
Option Compare Database
Public x1, y1, a1, b1 As Integer

这个不对吧？timer函数是定时执行的。。。。应该改resize

wzfa1206

看看