Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("Main")
p.SetScreenOrientation(1)
locale.Initialize
Timer1.Initialize("Timer1", 5000)
PanelMain.Visible = True
PanelLanguage.Visible = False
PanelStatus.Visible = False
PanelMap.Visible = False
PanelCamera.Visible = False
PanelDrvUserManual.Visible = False
PanelMessage.Visible = False
BtnSystemOnOff.TextOn = "System On/Off"
BtnSystemOnOff.TextOff = "System On/Off"
BtnOccUnocc.TextOn = "Occupied/Unoccupied"
BtnOccUnocc.TextOff = "Occupied/Unoccupied"
BtnMap.Text = "Map"
BtnStatus.Text = "Status"
BtnMessage.Text = "Message"
BtnCamera.Text = "Camera"
BtnDrvUserManual.Text = "User manual"
BtnSOS.Text = "SOS"
BtnLanguage.Text = "Language"
lblGPSname.Text = "Location Service"
lblLatitudeName.Text = "Latitude"
lblLongitudeName.Text = "Longitude"
lblAltitudeName.Text = "Altitude"
lblHeadingName.Text = "Heading"
lblSpeedName.Text = "Speed"
lblAccuracyName.Text = "Accuracy"
lblTimeName.Text = "Time"
lblimeiName.Text = "IMEI"
AlertMessage = "You have a new message."
warningtitle1 = "ATTENTION"
warning1 = "Please press on the User manual button to adjust settings."
warning2 = "Please enter 15 digits IMEI number."
PhotoSend = "Photo is uploaded."
lblgpstextenable = "Enabled"
lblgpstextdisable = "Please enable location services"
TextFieldimei.Hint = "Please write your IMEI number here."
lblSatellites.Text = "Satellites"
btnFocus.Text = "Take photo"
GetPreferredLanguage
If File.Exists(File.DirInternal,"user") Then
TextFieldimei.Text = File.ReadMap(File.DirInternal,"user").Get("userimei")
imeiService = TextFieldimei.Text
Else
TextFieldimei.Text = ""
imeiService = TextFieldimei.Text
End If
Event = ""
occupied = "chat=1|cost=0|occupied=0|batp=100|bats=1|"
EventService = Event
occupiedService = occupied
DateTime.DateFormat= "yyyy-MM-dd HH:mm:ss"
BtnSystemOnOff.Color = Colors.Red
BtnOccUnocc.Color = Colors.Red
Dim WebViewSettingsMap As WebViewSettings
WebViewSettingsMap.setDefaultZoom(WebViewMap, "FAR")
WebViewSettingsMap.setLoadWithOverviewMode(WebViewMap, True)
WebViewSettingsMap.setUseWideViewPort(WebViewMap, True)
WebViewSettingsMap.setDisplayZoomControls(WebViewMap, False)
webviewextrasMap.addWebChromeClient(WebViewMap,"webviewextrasMap")
Dim WebViewSettingsDrvUserManual As WebViewSettings
WebViewSettingsDrvUserManual.setDefaultZoom(WebViewDrvUserManual, "FAR")
WebViewSettingsDrvUserManual.setLoadWithOverviewMode(WebViewDrvUserManual, True)
WebViewSettingsDrvUserManual.setUseWideViewPort(WebViewDrvUserManual, True)
WebViewSettingsDrvUserManual.setDisplayZoomControls(WebViewDrvUserManual, False)
Dim WebViewSettingsMessage As WebViewSettings
WebViewSettingsMessage.setDefaultZoom(WebViewMessage, "FAR")
WebViewSettingsMessage.setLoadWithOverviewMode(WebViewMessage, True)
WebViewSettingsMessage.setUseWideViewPort(WebViewMessage, True)
WebViewSettingsMessage.setDisplayZoomControls(WebViewMessage, False)
ime1.Initialize("ime1")
ime1.AddHeightChangedEvent
Dim jo As JavaObject = Activity
jo.RunMethodJO("getContext", Null).RunMethodJO("getWindow", Null).RunMethod("setSoftInputMode", _
Array As Object(0x20))
ActivityParent = jo.RunMethodJO("getParent", Null)
ime2.Initialize("ime2")
BtnSystemOnOff.Checked = False
BtnOccUnocc.Checked = False
systemon = False
Timer1.Enabled=True
End Sub