AFEnumerationValues Class

Public NotInheritable Class AFEnumerationValues
	Inherits AFNamedCollection(Of AFEnumerationValue)

Dim instance As AFEnumerationValues

public ref class AFEnumerationValues sealed : public AFNamedCollection<AFEnumerationValue^>

[<SealedAttribute>]
type AFEnumerationValues =  
    class
        inherit AFNamedCollection<AFEnumerationValue>
    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.