No, orientation is both
this is the sample code, may bee i wrong something...
Thank for your time
'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim relo As Boolean
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim manjobview As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Msgbox("create", "pippo")
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
manjobview.Initialize("manjobview")
manjobview.JavaScriptEnabled=True
manjobview.Enabled=True
If FirstTime = True Then
Activity.AddView(manjobview,0,0,100%x, 100%y)
manjobview.LoadUrl("https://www.google.com")
End If
End Sub
Sub Activity_Resume
Msgbox("resume", "pippo")
If relo = True Then
Activity.AddView(manjobview,0,0,100%x, 100%y)
manjobview.LoadUrl("https://www.google.com")
relo=False
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Msgbox("pause", "pippo")
End Sub
Sub activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
relo = True
Select Msgbox2("Exit ?","", "Yes", "", "No",Null)
Case DialogResponse.NEGATIVE
relo = False
Return True
Case DialogResponse.POSITIVE
Return False
End Select
End If
End Sub
Sub manjobview_OverrideURL (Url As String) As Boolean
If Url.Contains("mailto:") Then
Dim Message As Email
Dim vmail As String
vmail = Url.SubString(7)
Message.To.Add(vmail)
'Message.Attachments.Add(File.Combine(File.DirRootExternal, "SomeFile.txt"))
StartActivity(Message.GetIntent)
Return True
End If
If Url.Contains("tel:") Then
Dim p As PhoneCalls
Dim vtel As String
vtel = Url.SubString(4)
StartActivity(p.Call(vtel))
Return True
End If
If Url.EndsWith(".pdf") Then
Msgbox("Catch","Pdf")
End If
Return False
End Sub