由于字体对象Font,所有的属性都是只读,如需修改一个字体的大小,就需要产生的一个新的实体,下面这个方法用于完全复制字体的属性,并设置新的大小!
Public Shared Function ChangeFontSize(ByVal font As System.Drawing.Font, _
ByVal newSize As Single) As System.Drawing.Font
If Not font Is Nothing Then
If Not font.Size = newSize Then
font = New System.Drawing.Font(font.Name, _
newSize, font.Style, _
font.Unit, font.GdiCharSet, _
font.GdiVerticalFont)
End If
End If
Return font
End Function