Connectivity Software User's Guide and Reference
_AECategoryElement Interface
Members  Example 



OpcLabs.EasyOpcClassicCore Assembly > OpcLabs.EasyOpc.AlarmsAndEvents.AddressSpace.ComTypes Namespace : _AECategoryElement Interface
Exposes OpcLabs.EasyOpc.AlarmsAndEvents.AddressSpace.AECategoryElement to COM clients.
Object Model
_AECategoryElement InterfaceAEAttributeElementCollection ClassAEAttributeElement ClassAEConditionElementCollection ClassAEConditionElement Class
Syntax
'Declaration
 
<CLSCompliantAttribute(False)>
<ComVisibleAttribute(True)>
<GuidAttribute("3306C0FE-3AEE-47F7-A6C3-2185787D9665")>
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsDual)>
Public Interface _AECategoryElement 
'Usage
 
Dim instance As _AECategoryElement
[CLSCompliant(false)]
[ComVisible(true)]
[Guid("3306C0FE-3AEE-47F7-A6C3-2185787D9665")]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface _AECategoryElement 
[CLSCompliant(false)]
[ComVisible(true)]
[Guid("3306C0FE-3AEE-47F7-A6C3-2185787D9665")]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface class _AECategoryElement 
Remarks

This member or type is for use from COM. It is not meant to be used from .NET or Python. Refer to the corresponding .NET member or type instead, if you are developing in .NET or Python.

Example

COM

Rem This example shows information available about OPC event category.
Rem
Rem Find all latest examples here: https://www.doc-that.com/files/onlinedocs/OPCLabs-ConnectivityStudio/Latest/examples.html .
Rem OPC client and subscriber examples in VBScript on GitHub: https://github.com/OPCLabs/Examples-ConnectivityStudio-VBScript .
Rem Missing some example? Ask us for it on our Online Forums, https://forum.opclabs.com/forum/index ! You do not have to own
Rem a commercial license in order to use Online Forums, and we reply to every post.

Option Explicit

Const AEEventTypes_All = 7

Dim ServerDescriptor: Set ServerDescriptor = CreateObject("OpcLabs.EasyOpc.ServerDescriptor")
ServerDescriptor.ServerClass = "OPCLabs.KitEventServer.2"

Dim Client: Set Client = CreateObject("OpcLabs.EasyOpc.AlarmsAndEvents.EasyAEClient")
On Error Resume Next
Dim CategoryElements: Set CategoryElements = Client.QueryEventCategories(ServerDescriptor, AEEventTypes_All)
If Err.Number <> 0 Then
    WScript.Echo "*** Failure: " & Err.Source & ": " & Err.Description
    WScript.Quit
End If
On Error Goto 0

Dim CategoryElement: For Each CategoryElement In CategoryElements
    WScript.Echo "Information about category " & CategoryElement & ":"
    With CategoryElement
        WScript.Echo Space(4) & ".CategoryId: " & .CategoryId
        WScript.Echo Space(4) & ".Description: " & .Description
        WScript.Echo Space(4) & ".ConditionElements:"
        Dim ConditionElement: For Each ConditionElement In .ConditionElements: WScript.Echo Space(8) & ConditionElement: Next
        WScript.Echo Space(4) & ".AttributeElements:"
        Dim AttributeElement: For Each AttributeElement In .AttributeElements: WScript.Echo Space(8) & AttributeElement: Next
    End With
Next
Requirements

Target Platforms: .NET Framework: Windows 10 (selected versions), Windows 11 (selected versions), Windows Server 2016, Windows Server 2022; .NET: Linux, macOS, Microsoft Windows

See Also