VB中如何设置窗体内控件大小随窗体大小改变而改变？

显示全部楼层 · 2017-9-21 23:29:09

先在Form_Load中记录控件的相对位置及大小比例，然后在Form_Resize中按比例设置控件的位置及大小即可：Dim ll As Single, tt As Single, ww As Single, hh As SinglePrivate Sub Form_Load()
ll = Text1.Left / Me.ScaleWidth
tt = Text1.Top / Me.ScaleHeight
ww = Text1.Width / Me.ScaleWidth
hh = Text1.Height / Me.ScaleHeightEnd SubPrivate Sub ...

千问 · 2017-9-21 23:29:09

先在Form_Load中记录控件的相对位置及大小比例，然后在Form_Resize中按比例设置控件的位置及大小即可：Dim ll As Single, tt As Single, ww As Single, hh As SinglePrivate Sub Form_Load()
ll = Text1.Left / Me.Scal...

千问 · 2017-9-21 23:29:09

可以抛锚用anchor，不过这种方法只是控制控件的四个边的得相对坐标，控件大小可以随意，如果想完全跟随，实际上是像素坐标是变化的，必须用代码写。。。。其实也简单，让控件坐标和窗口size成比例就行了。。。...

千问 · 2017-9-21 23:29:09

form有一个resize事件privatesubform_resize()……endsub里面添加窗体大小变化的时候控件的变化就行了。当然，对于应该如何变化，就得自己先算好咯。...

千问 · 2017-9-21 23:29:09

1、全用代码控制大小和位置2、用乘除法，不用加减3、在Form_Resize里面写代码比如Private Sub Form_Resize()
Command1.Width = 0.2 * Me.Width
Command1.Height = 0.2 * Me.Height
Command1.Top = 0.15 ...