AFEnumerationSet Class

<SerializableAttribute>
Public NotInheritable Class AFEnumerationSet
	Inherits AFObject
	Implements IAFTransactable, IAFChangedEvent, IAFSecurable, IComparable(Of AFEnumerationSet), 
	IList(Of AFEnumerationValue), ICollection(Of AFEnumerationValue), IEnumerable(Of AFEnumerationValue), 
	IEnumerable, IList, ICollection

Dim instance As AFEnumerationSet

[SerializableAttribute]
public ref class AFEnumerationSet sealed : public AFObject, 
	IAFTransactable, IAFChangedEvent, IAFSecurable, IComparable<AFEnumerationSet^>, 
	IList<AFEnumerationValue^>, ICollection<AFEnumerationValue^>, IEnumerable<AFEnumerationValue^>, 
	IEnumerable, IList, ICollection

[<SealedAttribute>]
[<SerializableAttribute>]
type AFEnumerationSet =  
    class
        inherit AFObject
        interface IAFTransactable
        interface IAFChangedEvent
        interface IAFSecurable
        interface IComparable<AFEnumerationSet>
        interface IList<AFEnumerationValue>
        interface ICollection<AFEnumerationValue>
        interface IEnumerable<AFEnumerationValue>
        interface IEnumerable
        interface IList
        interface ICollection
    end

' This example demonstrates how to create an enumeration 
' value type and add it as the type of an attribute,
' as well as setting a value with it.

' Get the Database
Dim myPISystems As New PISystems()
Dim myDB As AFDatabase = myPISystems.DefaultPISystem.Databases.DefaultDatabase

' Create the Enumeration Set
Dim myEnumerationSet As AFEnumerationSet = myDB.EnumerationSets.Add("Speed")
myEnumerationSet.Description = "Motor Speeds"

' Add the Enumeration Values
myEnumerationSet.Add("Stop", 0)
myEnumerationSet.Add("Slow", 1)
myEnumerationSet.Add("Medium", 5)
myEnumerationSet.Add("Fast", 10)

' Display the Name and Description of the EnumerationSet
Console.WriteLine("Name of EnumerationSet = {0}", myEnumerationSet.Name)
Console.WriteLine("Description = {0}", myEnumerationSet.Description)

' Display each value in the EnumerationSet
Dim eVal As AFEnumerationValue
For Each eVal In myEnumerationSet
    Console.WriteLine("Name in set = {0}", eVal.Name)
    Console.WriteLine("Value in set = {0}", eVal.Value)
Next eVal

' Create an Element
Dim myElement As AFElement = myDB.Elements.Add("MyElement")

' Create an Attribute
Dim myAttribute As AFAttribute = myElement.Attributes.Add("MyAttribute")

' Set the EnumerationSet for an Attribute
myAttribute.TypeQualifier = myEnumerationSet
myAttribute.SetValue(myEnumerationSet("Stop"), Nothing)

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.