如何在 VB.Net 2010 中更改字体属性答案

【问题标题】：How to change font properties in VB.Net 2010如何在 VB.Net 2010 中更改字体属性
【发布时间】：2015-05-11 16:21:31
【问题描述】：

所以我一直在使用这个 sn-p 代码来更改字体属性

Me.lblOutPut.Font = New Font("Times New Roman", 22)

但是，我的程序中有更改字体大小和字体类型的选项，例如，如果我必须更改字体大小，我还必须在代码中指定字体类型。除了走这条路，有没有办法创建可以动态改变字体大小和样式的变量？

例如，因为我觉得我说得不够清楚：

用户单击将字体大小从12 更改为16 的按钮

Me.lblOutPut.Font = New Font("Times New Roman", 16)

用户单击将字体类型设置为 Arial 的按钮

Me.lblOutPut.Font = New Font("Arial", 12)

如何使字体大小不变，但字体类型不变？

【问题讨论】：

标签： visual-studio-2010 fonts vb.net-2010

【解决方案1】：

我认为你需要这样的东西：

Private Function setFont(myFont As Font, Optional fontFamily As String = "", Optional fontSize As Single = 0) As Font

    If fontFamily = "" Then
        fontFamily = myFont.FontFamily.ToString()
    End If

    If fontSize = 0 Then
        fontSize = myFont.Size
    End If

    Return New Font(fontFamily, fontSize)

End Function

你可以这样使用它：

' To change both FontFamily And Size
Me.lblOutPut.Font = setFont(Me.lblOutPut.Font, "Times New Roman", 16)

' To change only FontFamily 
Me.lblOutPut.Font = setFont(Me.lblOutPut.Font, "Times New Roman", 0)
' Or
Me.lblOutPut.Font = setFont(Me.lblOutPut.Font, "Times New Roman")

' To change only Size
Me.lblOutPut.Font = setFont(Me.lblOutPut.Font, "", 12)

【讨论】：