How to cast?

OlimilO

Intermediate

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

Monday, February 9th 2009, 12:30pm

Hi,

uhh I am trying around a couple of minutes now.

a could not figure it out.

how to cast in Jabaco from an base object to a derived specialised object?

Jabaco Source

Public Sub Command1_Click()
   
   Dim b1 As CommandButton
   Dim b2 As CommandButton
   Dim obj As Object
   
   b1 = Me.Command1
   
   Msgbox b1.Caption
   
   obj = b1 ' OK
   
   b2 = obj ' no! of course this does not work:
   'the error in english:
   'Compile error. Class: 'Form1' line: 15
   'Type mismatch. Found 'VB/CommandButton' but 'java/lang/Object' is required!
 
   'the error in german:
   'Fehler in 'Form1' Zeile 15
   'Eine Konvertierung von 'VB/CommandButton' nach 'java/lang/Ojbect' ist nicht möglich!
   'I think the translation should be the other way around isn't it?
   'Eine Konvertierung von 'java/lang/Ojbect' nach 'VB/CommandButton' ist nicht möglich!
   
   ' But how to cast?
   
   ' Java-syntax would be something like:
   'b2 = (Commandbutton)obj
   ' does not exist in Jabaco
   
   ' VB.NET-Syntax would be:
   'b2 = DirectCast(obj, CommandButton) 
   'or
   'b2 = TryCast(Obj, CommandButton)
   ' both does not exist in Jabaco
   ' i found also the cast- method
   'b2 = System.getClass.cast(obj) 
   ' but how to use it in Jabaco?
   
   Msgbox b2.Caption
   
End Sub

many thanks in advance

greetings

OlimilO

Go to the top of the page

birosys

Trainee

Posts: 48

Date of registration: Feb 9th 2009

Location: Mladenovac, Serbia

Occupation: Programming

Hobbies: Programming

Monday, February 9th 2009, 2:39pm

Type Casting

here is code

Jabaco Source

Public Sub Command1_Click()
   
   Dim b1 As VB#CommandButton
   Dim b2 As VB#CommandButton
   Dim obj As Object
   
   b1 = Me.Command1
   
   Msgbox b1.Caption
   
   obj = b1 ' OK
   b2 = Cast(obj,vb#CommandButton)
   Msgbox b2.Caption
   
End Sub