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

Option Explicit

'You can use this class as a value example:
' Rename class to c_javautilHashMap and save the file as c_javautilHashMap.cls.
' Finally write your own local value operations.

Implements cOrbAbstractBase
Implements cOrbValueBase
'Implements c_javalangCloneable

'valuetype ::java::util::HashMap
Const sTypeId As String = "RMI:java.util.HashMap:86573568A211C011:0507DAC1C31660D1"


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

'Helper
Private Function cOrbAbstractBase_isObjRef() As Boolean
    cOrbAbstractBase_isObjRef = False
End Function

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

Private Function cOrbValueBase_UniqueId() As Long
    cOrbValueBase_UniqueId = VBOrb.getNextUniqueID()
End Function

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

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

Private Function cOrbValueBase_getIds(ByVal Item As Integer) As String
    Select Case Item
    Case 0: cOrbValueBase_getIds = sTypeId
    End Select
End Function

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

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