Sub Process_Globals
Private nativeMe As JavaObject
End Sub
Sub Globals
Dim ID As PhoneId
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
nativeMe.InitializeContext
End If
Dim strPhoneNumber As String
strPhoneNumber = nativeMe.RunMethod("GetNumber", Array (ID))
Log ("strPhoneNumber=" & strPhoneNumber)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
#If JAVA
public String GetNumber(anywheresoftware.b4a.phone.Phone.PhoneId x) {
return x.GetLine1Number();
}
#End If