#Region Project Attributes
#ApplicationLabel: name
#Version: 1.0
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private wv As WebView
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("WebView")
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
NavControl.NavigationBarVisible = False
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
Dim naob As NativeObject = wv
naob.GetField("scrollView").SetField("showsHorizontalScrollIndicator", False)
naob.GetField("scrollView").SetField("showsVerticalScrollIndicator", False)
wv.LoadUrl("http://..../")
wv.Width = 100%x
End Sub