UOMClasses Class

Public NotInheritable Class UOMClasses
	Inherits AFNamedCollection(Of UOMClass)

Dim instance As UOMClasses

public ref class UOMClasses sealed : public AFNamedCollection<UOMClass^>

[<SealedAttribute>]
type UOMClasses =  
    class
        inherit AFNamedCollection<UOMClass>
    end

' This example will create a base UOM Class and then display its information.

' Get the Database
Dim myPISystems As New PISystems
Dim myDB As UOMDatabase = myPISystems.DefaultPISystem.UOMDatabase

' Create a UOM Class
Dim LengthUOMClass As UOMClass = myDB.UOMClasses.Add("QALength", "QAmeter", "QAm")
LengthUOMClass.Description = "UOM Class representing length"

' Display the name, description, and Canonical UOM of each UOM Class
Console.WriteLine("Name of UOM Class = {0}", LengthUOMClass.Name)
Console.WriteLine("Description = {0}", LengthUOMClass.Description)
Console.WriteLine("Canonical unit of measure = {0}", LengthUOMClass.CanonicalUOM.Name)

' Display a message telling if this is a Base Class
If LengthUOMClass.IsBaseClass = True Then
    Console.WriteLine("This UOM Class is a Base Class")
Else
    Console.WriteLine("This UOM Class is NOT a Base Class")
End If

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.