'Code module
#Region Project Attributes
#ApplicationLabel: B4i Example
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 7
#End Region
Sub [B]Process_Globals[/B]
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Dim videoview1 As VideoView
End Sub
Private Sub [B]Application_Start[/B] (Nav As NavigationController)
NavControl = Nav
videoview1.Initialize("videoview1")
Page1.Initialize("Page1")
Page1.RootPanel.AddView(videoview1.View,0%x,0%y,100%x,49%y)
Page1.RootPanel.LoadLayout("main")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
videoview1.LoadVideoUrl("http://stream3.prostudionetwork.com:1950/salvador/MOVIL/playlist.m3u8")
videoview1.ShowControls = True
videoview1.Play
End Sub
Private Sub [B]Page1_Resize[/B](Width As Int, Height As Int)
End Sub
Private Sub [B]Application_Background[/B]
End Sub
Private Sub [B]videoview1_Ready[/B]
Log("Videoview1 ready")
End Sub
[\code]