如何修改字体的大小!

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