Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private CustomListView1 As CustomListView
Private MediaManager As SimpleMediaManager
Private pnlWebView As B4XView
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
MediaManager.Initialize
Dim s As String = "https://youtu.be/4M7RyV1zqRU"
For i = 0 To 10
Dim base As B4XView = xui.CreatePanel("")
base.SetLayoutAnimated(0, 0, 0, Root.Width, 300dip)
base.Color = xui.Color_White
CustomListView1.Add(base, s)
Next
End Sub
Private Sub CustomListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
For i = 0 To CustomListView1.Size - 1
Dim IsVisible As Boolean = i >= FirstIndex - 2 And i <= LastIndex + 2
Dim base As B4XView = CustomListView1.GetPanel(i)
If IsVisible Then
If base.NumberOfViews = 0 Then
base.LoadLayout("Item")
Dim site As String = CustomListView1.GetValue(i)
base.GetView(1).Text = site
MediaManager.SetMediaWithExtra(pnlWebView, site, "", CreateMap(MediaManager.REQUEST_CALLBACK: Me))
End If
Else
If base.NumberOfViews > 0 Then
MediaManager.ClearMedia(base.GetView(2)) 'immediately stop WebView.
End If
base.RemoveAllViews
End If
Next
End Sub
Sub SMM_MediaReady (Success As Boolean, Media As SMMedia)
Log("Vedo")
Log($"${Media.Meta} ${Media}"$)
End Sub
