在运行时更改字体并调整控件大小

Question

我有一个应用程序，我在运行时动态更改字体类型和大小。当控件添加到表单本身时，表单和控件按比例调整大小，但是当它们被添加到容器（如面板或组控件）时，它们往往会重叠或不会增大以容纳更大的文本。关于为什么会这样的指示？

Answer 1

要更改字体和大小，请使用：

Me.Font = New Font("Verdana", 12)

Me.Size = New Size(20, 20)

Answer 2

我发现这是DevExpress XtraForm特有的问题。我通过将其添加到表单的构造函数来解决它：

Font = (New Form()).Font

所以我的表单构造函数如下所示：

Public Sub New()
    Font = (New Form()).Font

    ' This call is required by the designer.
    InitializeComponent()

    ' Add any initialization after the InitializeComponent() call.

End Sub