使用 Rational® Rhapsody® API 建立 Java 列舉

關於這項作業

下列程式碼行會將新的列舉新增至選定套件,並為新列舉定義兩個常數:

Dim p As RPPackage
Dim c As RPClass
Dim a1 As RPAttribute
Dim a2 As RPAttribute
Set p = getSelectedElement
Set c = p.addNewAggr("Enum", "SampleEnum")
Set a1 = c.addNewAggr("EnumValue", "FIRST_CONSTANT")
Set a2 = c.addNewAggr("EnumValue", "SECOND_CONSTANT")

回饋