vb/demo/Ice/value/DerivedPrinterI.vb

   1 ' **********************************************************************
   2 '
   3 ' Copyright (c) 2003-2011 ZeroC, Inc. All rights reserved.
   4 '
   5 ' This copy of Ice is licensed to you under the terms described in the
   6 ' ICE_LICENSE file included in this distribution.
   7 '
   8 ' **********************************************************************
   9
  10 Imports Demo
  11
  12 Public Class DerivedPrinterI
  13     Inherits DerivedPrinter
  14
  15     Public Overloads Overrides Sub printBackwards(ByVal current As Ice.Current)
  16         Dim arr() As Char = message.ToCharArray()
  17         For i As Integer = 0 To arr.Length / 2 - 1
  18             Dim tmp As Char = arr(arr.Length - i - 1)
  19             arr(arr.Length - i - 1) = arr(i)
  20             arr(i) = tmp
  21         Next
  22         System.Console.Out.WriteLine(New String(arr))
  23     End Sub
  24
  25     Public Overloads Overrides Sub printUppercase(ByVal current As Ice.Current)
  26         System.Console.Out.WriteLine(derivedMessage.ToUpper())
  27     End Sub
  28
  29 End Class