blob: cf9be62bd53094aab5a7a5c4cdb401428d0dc524 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
' **********************************************************************
'
' Copyright (c) 2003-2006 ZeroC, Inc. All rights reserved.
'
' This copy of Ice is licensed to you under the terms described in the
' ICE_LICENSE file included in this distribution.
'
' **********************************************************************
Imports System.Diagnostics
Public Class ObjectFactory
Inherits Ice.LocalObjectImpl
Implements Ice.ObjectFactory
Public Overloads Function create(ByVal type As String) As Ice.Object Implements Ice.ObjectFactory.create
If type.Equals("::Demo::Printer") Then
Return New PrinterI
End If
If type.Equals("::Demo::DerivedPrinter") Then
Return New DerivedPrinterI
End If
' Debug.Assert(False) ' Bug in VB 7.1: Diagnostics.Debug is not found
Return Nothing
End Function
Public Overloads Sub destroy() Implements Ice.ObjectFactory.destroy
' Nothing to do
End Sub
End Class
|
