VB6. vb.net中的VB6.FontChangeName替代方案是什么

Question

我使用向导工具将VB6迁移到VB.Net，下面是正在迁移的属性之一。sprSpread是远品脱扩散控制的参考。

Public Property FontName() As String
    Get
        FontName = sprSpread.Font.Name
    End Get
    Set(ByVal Value As String)
        sprSpread.Font = VB6.FontChangeName(sprSpread.Font, Value)
        RaiseEvent FontNameChange()
    End Set
End Property 

VB6的Vb.Net替代方案是什么？

Answer 1

因为Font类的属性是只读的，所以当您需要在.NET中更改字体的属性时，您需要创建一个全新的Font对象。例如：

' Create a new font with the same size and style as before, but with a different name
sprSpread.Font = New Font(Value, sprSpread.Font.Size, sprSpread.Font.Style)