Source code

Import java#io#PrintStream


Public psError As PrintStream
Public psOut As PrintStream


'...
'...
'...



Public Sub main(ByJava args() As String)
'...
'...
Dim opStreamErr As clsOutputStream
Dim opStreamOut As clsOutputStream
'...
'...

frmTest.SetDefaultClose()
frmTest.Show()



opStreamErr = New clsOutputStream( frmTest.txtError )
psError = New PrintStream( opStreamErr )


opStreamOut = New clsOutputStream( frmTest.txtOutput )
psOut = New PrintStream( opStreamOut )

System.setErr( psError )
System.setOut( psOut )


System.out.println( "Testing, what should be standard output" )
System.err.println( "Testing what should be standard error" )
   
End Sub

Source code

Import java#io#OutputStream
Import VB#TextBox


Dim txtJBTextArea As VB#TextBox


Public Sub clsOutputStream( txtJB As VB#TextBox )

txtJBTextArea = txtJB

End Sub


Public Sub write( nOutputCharacter As Integer )

Me.writeOverridable( nOutputCharacter )

End Sub

Public Sub writeOverridable( nOutputCharacter As Integer )
Dim cOutputCharacter As String
cOutputCharacter = Chr( nOutputCharacter )

txtJBTextArea.AppendText( cOutputCharacter )


End Sub