[บทเรียน, Java] การWrapper JavaCode มาเป็น Bas File.

public class MyClass {
   public String  GreetJava(String name) {
        return "Hello," +name;
   }
}

Sub Greet (name As String) As String
Dim mc As MyClass
        Return mc.GreetJava(name)
End Sub

  public String  GreetJava(String name) {
        return "Hello," +name;
  }

Public Sub Greet(name As String) As String
'Using CrossPlatform
 'Add  equal to Me Because using B4XPages
          
Dim jo As JavaObject=Me
'delete this under line Because usingB4XPages
 ' jo.initializeContext
 Dim mystring As String = name
 mystring = jo.runMethod("GreetJava" , Array(mystring))
Return mystring
End Sub

Private  TextBox As B4XView
TextBox.Text=Greet("Theera")