Public Class Form1Dim _originClienSize As Size = NothingDim _originBtnSize As SizeDim _originBtnPos As PointPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load'必须使用ClientSize,不能使用Size,因为Size包括窗口框架的宽高,这个是固定值,不能计算到缩放因素里'不然当缩小到一定程度时,控件的大小和位置计算比例就不对了_originClienSize = ClientSize_originBtnSize = Button2.Size_originBtnPos = Button2.LocationEnd SubPrivate Sub Form1_Resize(sender As Object, e As EventArgs) Handles MyBase.ResizeIf _originClienSize <> Nothing ThenButton2.Width = ClientSize.Width / _originClienSize.Width * _originBtnSize.WidthButton2.Height = ClientSize.Height / _originClienSize.Height * _originBtnSize.HeightDim point As Point = New Point(ClientSize.Width / _originClienSize.Width * _originBtnPos.X, ClientSize.Height / _originClienSize.Height * _originBtnPos.Y)Button2.Location = pointEnd IfEnd SubEnd Class
效果