How to cast?

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

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