Sub CreateListItem3(Text1 As String, Text2 As String, Vignette As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize(""
Dim lbl1, lbl2 As Label
lbl1.Initialize("lbl1")
lbl1.Text = Text
lbl2.Initialize("lbl2"
lbl2.Text = Text2
Dim ImgVignette As ImageView
ImgVignette.Initialize("ImgVignette")
Dim Repertoire = "File.DirAssets" As String
ImgVignette.Bitmap = LoadBitmap(Repertoire , Vignette)
p.AddView(ImgVignette, 2dip, 2dip, 25%x, 25%x )
p.AddView(lbl1, 5dip + 25%x, 0dip, 75%x, Height/2 )
p.AddView(lbl2, 5dip + 25%x, Height/2, 75%x, Height/2)
Return p
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
TabControl.Initialize("TabControl")
' Initialize Actus and load a layout file
Actus.Initialize("Actus")
Actus.RootPanel.LoadLayout("Actus")
clvActus.Initialize(Me, "clvActus", 100%x)'CustomListView
Actus.RootPanel.AddView(clvActus.AsView, 0, 5%y, 100%x, 72%y)
For i = 0 To 10
Dim MyVignette = "MyImage.png"
Dim Nom = "MyName"
Dim ouverture = ""Myouverture"
clvActus.Add(CreateListItem3(Nom, Ouverture, MyVignette, clvActus.AsView.Width, 50dip), 70dip, M)
next
End sub