blob: 0ccf110729a7a4cace8bea3b45f945732f426283 (
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
34
35
36
|
' **********************************************************************
'
' Copyright (c) 2003-2014 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
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
If type.Equals("::Demo::ClientPrinter") Then
Return New ClientPrinterI
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
|
