我希望能够重新调整表单大小,并随其缩放。例如,如果表单变大,则所有对象(包括字体)都变大,但仍会保持其相对位置。
我在图片框上放了一堆标签。图片框是地板布局,标签是该地板布局上的对象。我希望能够更改标签的不同颜色以及它们各自的文本以指示发生了某些事情,这就是为什么我决定走这条路线的原因
这是我尝试过的:
WidthDiff = (PictureBox1.Width - OldWidth) / 2
HeightDiff = (PictureBox1.Height - OldHeight) / 2
' MsgBox("WidthDiff: " & WidthDiff & " HightDiff: " & HeightDiff & " OldWidth: " & OldWidth)
For Each lbl As Label In Me.Controls.OfType(Of Label)
lbl.Size = New Size(Me.ClientSize.Width / 15, Me.ClientSize.Height / 15)
lbl.Location = New Point(lbl.Location.X + WidthDiff, lbl.Location.Y + HeightDiff)
lbl.Font = New Font("Arial", Me.ClientSize.Height / 100)
Next
' PictureBox1.Size = New Size(Me.ClientSize.Width - 10, Me.ClientSize.Height - 30)
OldHeight = PictureBox1.Height
OldWidth = PictureBox1.Width
此问题是,尽管标签,字体和图片比例尺,但标签不会停留在图片框地板布局的同一位置。我无休止地尝试调整值,但是没有运气。
谢谢您