调整文本大小以适合标签 - vb.net

Question

我想根据 vb.net

中适合标签固定大小的文本长度自动更改字体大小

Answer 1

为 Label.Paint 添加此事件

Private Sub Label1_Paint(sender As Object, e As PaintEventArgs) Handles Label1.Paint
    Dim ratio = Label1.Width / Windows.Forms.TextRenderer.MeasureText(Label1.Text, Label1.Font).Width
    Dim newWidth = Math.Floor(Label1.Font.Size * ratio)
    Label1.Font = New Font(Label1.Font.FontFamily, CInt(newWidth))
End Sub

它测量文本并调整其大小以适合标签。这将在绘制标签时调用 - 当更改文本、调整标签大小、显示等时。

调整文本大小以适合标签 - vb.net

Resize text to fit the text into label - vb.net

vb.net