VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cCBStructMember"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'Generated by IDL2VB v120. Copyright (c) 1999 Martin.Both
'Source File Name: ../include/CORBA.idl
'Target File Name: cCBStructMember.cls

Option Explicit

'struct ::CORBA::StructMember
Const sTypeId As String = "IDL:omg.org/CORBA/StructMember:1.0"

'Member
Public name As String
Public p_type As cOrbTypeCode
Public type_def As cCBIDLType

'Helper
Public Sub initByRead(ByVal oIn As cOrbStream)
    On Error GoTo ErrHandler
    name = oIn.readString()
    Set p_type = oIn.readTypeCode()
    Set type_def = mCBIDLType.narrow(oIn.readObject())
    Exit Sub
ErrHandler:
    Call mVBOrb.VBOrb.ErrReraise(Err, "StructMember.read")
End Sub

'Helper
Public Sub writeMe(ByVal oOut As cOrbStream)
    On Error GoTo ErrHandler
    Call oOut.writeString(name)
    Call oOut.writeTypeCode(p_type)
    Call oOut.writeObject(type_def)
    Exit Sub
ErrHandler:
    Call mVBOrb.VBOrb.ErrReraise(Err, "StructMember.write")
End Sub

'Helper
Public Sub initByAny(ByVal oAny As cOrbAny)
    On Error GoTo ErrHandler
    name = oAny.getString()
    Call oAny.nextPos
    Set p_type = oAny.getTypecode()
    Call oAny.nextPos
    Set type_def = oAny.getReference()
    Call oAny.nextPos
    Exit Sub
ErrHandler:
    Call mVBOrb.VBOrb.ErrReraise(Err, "initByAny")
End Sub

'Helper
Public Sub insertIntoAny(ByVal oAny As cOrbAny)
    On Error GoTo ErrHandler
    Call oAny.insertString(name)
    Call oAny.nextPos
    Call oAny.insertTypecode(p_type)
    Call oAny.nextPos
    Call oAny.insertReference(type_def)
    Call oAny.nextPos
    Exit Sub
ErrHandler:
    Call mVBOrb.VBOrb.ErrReraise(Err, "insertIntoAny")
End Sub
