Private Sub Application_Start (Nav As NavigationController)
x.LocManager.Initialize("LocManager")
NavControl = Nav
App.RegisterUserNotifications(True, True, True) 'request permission for notifications
App.ApplicationIconBadgeNumber = 0
If App.LaunchOptions.IsInitialized Then
Dim ln As Notification = App.LaunchOptions.Get("UIApplicationLaunchOptionsLocalNotificationKey")
hd.ToastMessageShow("In Application Start",True)
If ln.IsInitialized Then
hd.ToastMessageShow("Application was started from a notification: " & ln.AlertBody, True)
End If
End If
ge.Initialize("ge")
x.ShowX(False)
End Sub
Public Sub ShowX(alarms As Boolean)
If pg2.IsInitialized = False Then
pg2.Initialize("pg2")
pg2.Title = "Title"
pg2.Initialize("pg2")
pg2.RootPanel.LoadLayout("s_calc")
End If
Main.Page1_Resize(Main.ActivityWidth,Main.ActivityHeight)
Main.navControl.ShowPage(pg2)
LocManager.Initialize("LocManager")
pnlGPS.Visible = False
pnlAbout.Visible=True
StartGPS
pnlOpt.Visible = False
btnOptions.Visible = True
Main.ge.ResolveCoordinate(lat,lng)
'Button1_Click
'**** Commenting out the above line passes Apple's review ********
pnlAbout.Visible=False
End Sub
Sub Button1_Click
pnlRose.Visible = False
timesArray.Initialize
timesArray = XCalc.newCalculation(txtLat.Text,txtLng.Text,dd,timesArray)
Main.ge.ResolveCoordinate(lat,lng)
timeNow = DateTime.Now
timeDiff1 = DateTime.DateTimeParse(DateTime.Date(DateTime.Now),timesArray.F) - timeNow
.
End Sub