'Code module
#Region Project Attributes
#ApplicationLabel: TableView
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#ATSEnabled: True
#MinVersion: 11
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private ptv As Panel
Private tv As TableView
Private TextField1 As TextField
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Dim no As NativeObject = App
NavControl.NavigationBarVisible = False
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Main")
NavControl.ShowPage(Page1)
tv.Initialize("tv", False)
ptv.AddView(tv, 0, 0, 100%x, 100%y)
tv.RowHeight = 30
For i = 1 To 50
Dim s As AttributedString
Dim tc As TableCell = tv.AddSingleLine("")
tc.ShowSelection = True
s.Initialize("Note " & i, Font.CreateFontAwesome(14), Colors.Black)
tc.Text = s
Next
End Sub