blob: fdb3a3d9f27654466c17fe0bbf8ed247718fa326 (
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
|
' **********************************************************************
'
' Copyright (c) 2003-2009 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 Demo
Imports System
Class HelloI
Inherits HelloDisp_
Public Sub New(ByVal name As String, ByVal id As Integer)
_name = name
_id = id
End Sub
Public Overloads Overrides Sub sayHello(ByVal current As Ice.Current)
Console.Out.WriteLine("Hello object #" & _id & " for session `" & _name & "' says:")
Console.Out.WriteLine("Hello " & _name & "!")
End Sub
Private _name As String
Private _id As Integer
End Class
|
