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

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

效果

vb.net 随窗口改变,缩放控件大小以及保持相对位置_第1张图片

 vb.net 随窗口改变,缩放控件大小以及保持相对位置_第2张图片

 

你可能感兴趣的:(vb.net,.net,前端)