小白用VB开发安卓程序_22直接调用JAVA代码

使用 #If JAVA，可直接调用JAVA代码，进一步扩展了B4A的功能。举例如下

Sub Process_Globals

   'JavaObject对象可调用JAVA函数
   dim  gJavaObject1 As JavaObject
   
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)


   If FirstTime Then
       '初始化
     gJavaObject1.InitializeContext
   End If
   
   '调用JAVA函数
   Dim s As String = gJavaObject1.RunMethod("FirstMethod", Null)
   
'   在IDE平台的右侧LOG页面输出内容
   Log(s) 
   
End Sub



'使用#If JAVA，可直接调用JAVA代码
#If JAVA
public String FirstMethod() {
   return "上下五千年";
}
#End If