Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
'*** Page Layout ***'
Dim pageAccepted As Page
Dim pageMaybe As Page
Dim pageDeclined As Page
Dim pnlHeaderAccepted As Panel
Dim pnlHeaderMaybe As Panel
Dim pnlHeaderDeclined As Panel
Dim clv_Accepted As CustomListView
Dim clv_Maybe As CustomListView
Dim clv_Declined As CustomListView
Public parentPage As Page
Private lblFeedDetailHeader As Label
Private cf As commonFunctions
'This clv_feed comes from the layout loFeedDetail
Private clv_feed As CustomListView
End Sub
Sub Show
'** Header Panels
pnlHeaderAccepted.Initialize("")
pnlHeaderMaybe.Initialize("")
pnlHeaderDeclined.Initialize("")
'Reuse the same layout but populate the CLV with different data
pnlHeaderAccepted.LoadLayout("loFeedDetail")
lblFeedDetailHeader.Text = Global.THD_Selected.name
clv_Accepted.Initialize(Me, "clv_Accepted")
clv_Accepted = clv_feed
pnlHeaderMaybe.LoadLayout("loFeedDetail")
lblFeedDetailHeader.Text = Global.THD_Selected.name
clv_Maybe.Initialize(Me, "clv_Maybe")
clv_Maybe = clv_feed
pnlHeaderDeclined.LoadLayout("loFeedDetail")
lblFeedDetailHeader.Text = Global.THD_Selected.name
clv_Declined.Initialize(Me, "clv_Declined")
clv_Declined = clv_feed
pageAccepted.Initialize("pageAccepted")
pageMaybe.Initialize("pageMaybe")
pageDeclined.Initialize("pageDeclined")
Global.SetPageTitle(pageAccepted, "Accepted")
Global.SetPageTitle(pageMaybe, "Maybe")
Global.SetPageTitle(pageDeclined, "Declined")
' ** Add layout to the Pages
pageAccepted.RootPanel.AddView(pnlHeaderAccepted,0,0,Global.PageWidth, Global.PageHeight)
pageMaybe.RootPanel.AddView(pnlHeaderMaybe,0,0,Global.PageWidth, Global.PageHeight)
pageDeclined.RootPanel.AddView(pnlHeaderDeclined,0,0,Global.PageWidth, Global.PageHeight)
If Global.TabController.IsInitialized = False Then
Global.AddTabBarController("tc", App, Array(pageAccepted, pageMaybe, pageDeclined), 0)
Else
Global.SetTabBarControllerPages(Array(pageAccepted, pageMaybe, pageDeclined), 0)
End If
End Sub
Sub clv_Accepted_ItemClick (Index As Int, Value As Object)
'This does not get called
End Sub
Sub clv_Declined_ItemClick (Index As Int, Value As Object)
'This does not get called
End Sub
Sub clv_Maybe_ItemClick (Index As Int, Value As Object)
'This does not get called
End Sub