VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cCBStringValue"
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: cCBStringValue.cls

Option Explicit

Implements cOrbValueBase

'valuetype ::CORBA::StringValue
Const sTypeId As String = "IDL:omg.org/CORBA/StringValue:1.0"

Private lUniqueId As Long

Public Value As String

'Helper to get different COM interface
Friend Function thisOrbValueBase() As cOrbValueBase
    Set thisOrbValueBase = Me
End Function

'Helper
Private Function cOrbValueBase_UniqueId() As Long
    If lUniqueId = 0 Then
        lUniqueId = mVBOrb.VBOrb.getNextUniqueID()
    End If
    cOrbValueBase_UniqueId = lUniqueId
End Function

'Helper
Private Sub cOrbValueBase_initByRead(ByVal oIn As cOrbStream)
    On Error GoTo ErrHandler
    Value = oIn.readString()
    Exit Sub
ErrHandler:
    Call mVBOrb.VBOrb.ErrReraise(Err, "StringValue.read")
End Sub

'Helper
Private Sub cOrbValueBase_writeMe(ByVal oOut As cOrbStream)
    On Error GoTo ErrHandler
    Call oOut.writeString(Value)
    Exit Sub
ErrHandler:
    Call mVBOrb.VBOrb.ErrReraise(Err, "StringValue.write")
End Sub

Private Function cOrbValueBase_getIds(ByVal Item As Integer) As String
    cOrbValueBase_getIds = IIf(Item = 0, sTypeId, "")
End Function

Private Function cOrbValueBase_isCustom() As Boolean
    cOrbValueBase_isCustom = False
End Function
