一个窗体,窗体里面有几个控件,请大侠们帮忙:怎样在调整窗体大小时,里面的控件也随窗体大小改变?
展开全部
窗体布局调整没有千篇一律的,要看具体情况,比如文件夹窗口,文件显示区会调整宽度和高度,但左边的面板区只调整了高度,并没调整宽度。
如果你想玩玩,把控件全部同比率的调整大小和位置,可以在窗体载入时把窗口的原尺寸保存起来,以后就按新尺寸与原尺寸的比率来调整控件和位置。
Dim oldWidth As Single, oldHeight As Single
Private Sub Form_Load()
oldWidth = Me.Width
oldHeight = Me.Height
End Sub
Private Sub Form_Resize()
Dim item As Control
Dim RX As Single
Dim RY As Single
RX = Me.Width / oldWidth
RY = Me.Height / oldHeight
On Error Resume Next
For Each item In Controls
item.Left = item.Left * RX
item.Width = item.Width * RX
item.Top = item.Top * RY
item.Height = item.Height * RY
Next
oldWidth = Me.Width
oldHeight = Me.Height'当然,要把当前窗口尺寸保存
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询