vb.net固定长度的label根据显示文字的多少自动放大/缩小字体

最新推荐文章于 2023-04-03 17:12:16 发布

Vera_Wangs

最新推荐文章于 2023-04-03 17:12:16 发布

阅读量1.4k

点赞数

分类专栏： vb.net Label 文章标签： vb.net

本文链接：https://blog.csdn.net/Vera_Wangs/article/details/118224002

版权

在VB.NET中，若要使Label根据显示文本的长度自动调整字体大小以适应固定宽度，可以预先设置一个隐藏的AutoSize为True的Label。通过调用SetFontSize方法，传入目标Label、最大宽度、最大字体大小及文本，即可实现Label字体的动态调整。

摘要由CSDN通过智能技术生成

前提：画面得放一个隐藏的Label,并且该隐藏Label的【AutoSize】属性设置为【TRUE】。

调用方法：
SetFontSize(Me.lbl13, Me.lblArari, 152, 22, “” & Format(result, “###,##0”))
参数说明：lbl13 --画面隐藏Label。
lblArari --要改变字体大小的目标Label。
152 --要改变字体大小的目标Label的最大宽度。
22 --要改变字体大小的目标Label的最大字体大小。
“” & Format(result, “###,##0”) ----要改变字体大小的目标Label的text

Private Sub SetFontSize(ByVal lblCompare As Label,
                        ByVal lblResult As Label,
                        ByVal lblWidth As Single,
                        ByVal lblFontSize As Single,
                        ByVal txtResult As String)
    Dim lblFont As Font = New Font(lblResult.Font.FontFamily, lblFontSize, lblResult.Font.Style)
    lblCompare.Text = txtResult

    If lblCompare.Width <= lblResult.Width Then
        lblResult.Width = lblWidth
        lblResult.Font = lblFont
        lblResult.Text = txtResult
    Else
        Dim iChangeFontSize As Single