vb.net 随窗口改变,缩放控件大小以及保持相对位置

飞天_

于 2022-07-05 21:41:25 发布

阅读量2.4k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： vb.net 文章标签： .net 前端

本文链接：https://blog.youkuaiyun.com/qq_36769722/article/details/125628626

vb.net 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种在Visual Basic.NET中实现窗体及按钮根据窗体大小自适应缩放的方法。通过保存原始尺寸，在窗体加载和调整大小时按比例调整按钮的位置和尺寸，确保界面元素始终保持合适比例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Class Form1
    Dim _originClienSize As Size = Nothing
    Dim _originBtnSize As Size
    Dim _originBtnPos As Point
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '必须使用ClientSize，不能使用Size，因为Size包括窗口框架的宽高，这个是固定值，不能计算到缩放因素里
        '不然当缩小到一定程度时，控件的大小和位置计算比例就不对了
        _originClienSize = ClientSize
        _originBtnSize = Button2.Size
        _originBtnPos = Button2.Location
    End Sub


    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
        If _originClienSize <> Nothing Then
            Button2.Width = ClientSize.Width / _originClienSize.Width * _originBtnSize.Width
            Button2.Height = ClientSize.Height / _originClienSize.Height * _originBtnSize.Height
            Dim point As Point = New Point(ClientSize.Width / _originClienSize.Width * _originBtnPos.X, ClientSize.Height / _originClienSize.Height * _originBtnPos.Y)
            Button2.Location = point
        End If
    End Sub
End Class

效果