看流星社区

 找回密码
 注册账号
查看: 2220|回复: 1

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

[复制链接]

该用户从未签到

发表于 2014-7-9 09:18:08 | 显示全部楼层 |阅读模式
VB中如何设置窗体内控件大小随窗体大小改变而改变?

该用户从未签到

发表于 2014-7-9 09:18:18 | 显示全部楼层
先在Form_Load中记录控件的相对位置及大小比例,然后在Form_Resize中按比例设置控件的位置及大小即可:

Dim ll As Single, tt As Single, ww As Single, hh As Single

Private Sub Form_Load()

    ll = Text1.Left / Me.ScaleWidth
    tt = Text1.Top / Me.ScaleHeight

    ww = Text1.Width / Me.ScaleWidth
    hh = Text1.Height / Me.ScaleHeight

End Sub

Private Sub Form_Resize()
    Text1.Left = Me.ScaleWidth * ll
    Text1.Top = Me.ScaleHeight * tt
    Text1.Width = Me.ScaleWidth * ww
    Text1.Height = Me.ScaleHeight * hh
End Sub

如果控件比较多的话,就要用数组了。
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 04:42

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表