Question

我的问题是我无法根据表单大小调整表单控件的大小。我有一个包含文本框，标签和按钮的表单。单击按钮我需要在特定大小的窗口中打开相同的窗体，我希望窗体的所有控件都应该与窗体成比例，控件内的字体大小也应该成比例。任何人都可以建议如何使用代码。无法通过使用锚点和停靠属性来解决此问题。

我的代码：

Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim widthRatio As Single = Me.Size.Width / 300.0F
    Dim heightRatio As Single = Me.Size.Height / 300.0F
    Dim scale As New SizeF(widthRatio, heightRatio)
    Me.Scale(scale)
    For Each control As Control In Me.Controls
        control.Scale(scale)
        control.Font = New Font(control.Font.FontFamily,   control.Font.SizeInPoints * widthRatio * heightRatio)
    Next
End Sub

这里的宽度和高度比率我已经划分了300.0F，因为我的原始形式是尺寸（300,300），但我没有得到所有的控件同等扩展......任何建议都表示赞赏。

由于

pallavi

Answer 1

检查这两行

Dim widthRatio As Single = Me.Size.Width / 300.0F
Dim heightRatio As Single = Me.Size.Height / 300.0F

在你的情况下，Me.Size.Width = 300和Me.Size.Height = 300这就是为什么它不工作，改变宽度或高度然后检查

调整窗口窗体控件的大小

1 个答案: