如何修改字体的大小!

由于字体对象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

.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, "Courier New", courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }