向exisitng类添加属性

Question

我有一个简单的类，如下所示：

Public Class myclass

Public Property myfont() As String
        Get
            Return m_myfont
        End Get
        Set
            m_myfont = Value
        End Set
    End Property

    Private m_myfont As String

End Class

这就是我从另一个webapp调用我的课程的方式

Dim myfont as new myclass
myfont.fontname = "Arial"

这很好。

现在我想预定义一些字体并将它们称为：

myfont.fontsize = "It should display as shown in the below image"

如何显示所有预定义字体？

Answer 1

你所说的是Enum：

Public Enum FontSize
    AsUnit
    Large
    Larger
End Enum

在某个类中定义它（例如“CommonTypes”），然后将属性添加到myClass：

Private _myFontSize As FontSize
Public Property MyFontSize() As FontSize
    Get
        Return _myFontSize
    End Get
    Set(ByVal value As FontSize)
        _myFontSize = value
    End Set
End Property

你很高兴。

有关枚举的更多信息here。