Android Question UltimateListView

AndroidMadhu · Apr 16, 2020

Hello All,
I am new in B4A and started working and exploring B4A.
I have been working with ULV with simple list view. But it is not working. Nothing showing in the list.
Below is my code...

B4X:

Sub Globals
    Dim ulv As UltimateListView
    Dim itemheight As Int = 60dip
    Dim fruits As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
    fruits.Initialize2(Array As String("Apple", "Banana", "Cherry", "Coconut", "Grapes", "Lemon", "Mango", "Melon", "Orange", "Pear", "Pineapple", "Strawberry"))
    ulv.Initialize(0,0,"","ulv")
    ulv.Color=Colors.White
    Activity.AddView(ulv,0,0,100%x,100%y)
    ulv.AddLayout("MyTest","layout_creator","layout_contentfiller",itemheight,True)
    ulv.BulkAddItems(fruits.Size,"MyTest",0)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub layout_creator(LayoutName As String, LayoutPanel As Panel)
    LayoutPanel.LoadLayout("fruitlabel")
End Sub

Sub layout_contentfiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
    Dim lbl As Label = LayoutPanel.GetView(0) 'First (and only) view in the panel
    lbl.Text = fruits.Get(Position)

Could anyone suggest why this is not showing the fruits name in the list?

DonManfred · Apr 16, 2020

AndroidMadhu said:
Could anyone suggest why this is not showing the fruits name in the list?

I dont see you using the list!?
I mean except in the code

B4X:

 ulv.BulkAddItems(fruits.Size,"MyTest",0)

skaliwag · Apr 16, 2020

Your code looks fine.
I suspect either your text and paper colour are the same, so you can't see the text, or your layout is set up wrong
Try replacing your

LayoutPanel.LoadLayout("fruitlabel")

with

Dim lblName As Label
lblName.Initialize("")
lblName.TextColor=Colors.Black
LayoutPanel.AddView(lblName,0,0,LayoutPanel.Width,LayoutPanel.Height)

and see what happens.

AndroidMadhu · Apr 16, 2020

@skaliwag ... This is working fine .... Yes... the color are same.
Below is the code...

B4X:

#Region  Project Attributes
    #ApplicationLabel: ULV
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    Dim ulv As UltimateListView
    Dim itemheight As Int = 60dip
    Dim fruits As List
    Dim lblname As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    fruits.Initialize2(Array As String("Apple", "Banana", "Cherry", "Coconut", "Grapes", "Lemon", "Mango", "Melon", "Orange", "Pear", "Pineapple", "Strawberry", "Litchi", "Watermelon"))
    ulv.Initialize(0,0,"","ulv")
    ulv.Color=Colors.White
    ulv.AddLayout("MyTest","layout_creator","layout_contentfiller",itemheight,True)
    Activity.AddView(ulv,0,0,100%x,100%y)
    
    ulv.BulkAddItems(fruits.Size,"MyTest",0)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub layout_creator(LayoutName As String, LayoutPanel As Panel)
    lblname.Initialize("")
    lblname.TextColor=Colors.Gray
    LayoutPanel.AddView(lblname,20, 0 ,LayoutPanel.Width,LayoutPanel.Height)
    
End Sub

Sub layout_contentfiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
    lblname.Text = fruits.Get(Position)
End Sub

One more confusion.... If I want to add a Panel at the back of ULV how Do I add then? As I want to add some button at the panel to fetch some data at ULV

Please advice

Frankie Lagrange · Apr 16, 2020

You should create a layout ('main' for example) to load into the activity using

B4X:

Activity.LoadLayout("main")

But if you really want to do everything by code, this will work: it creates a panel and a button in code.

B4X:

#Region  Project Attributes
    #ApplicationLabel: ULV
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    Dim ulv As UltimateListView
    Dim itemheight As Int = 60dip
    Dim fruits As List
    Dim lblname As Label
    Dim panel As Panel
    Dim btn As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Activity.LoadLayout("main")
    panel.Initialize("")
    panel.Height = 100%y
    panel.Width = 100%x
    panel.Color = Colors.Black

    btn.Initialize("")
    btn.Height = 50dip
    btn.Width = 100dip
    btn.Text = "BUTTON"
    btn.Color = Colors.Red
    
    panel.AddView(btn,  (100%x-btn.Width)/2, 100%y-btn.Height,100dip, 50dip)
    
    fruits.Initialize2(Array As String("Apple", "Banana", "Cherry", "Coconut", "Grapes", "Lemon", "Mango", "Melon", "Orange", "Pear", "Pineapple", "Strawberry", "Litchi", "Watermelon"))
    ulv.Initialize(0,0,"","ulv")
    ulv.Color=Colors.White
    ulv.AddLayout("MyTest","layout_creator","layout_contentfiller",itemheight,True)
    Activity.AddView(panel,0,0,100%x, 100%y)
    ulv.BulkAddItems(fruits.Size,"MyTest",0)
    
    panel.AddView(ulv,0,0,100%x, 80%y)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub layout_creator(LayoutName As String, LayoutPanel As Panel)
    lblname.Initialize("")
    lblname.TextColor=Colors.Gray
    LayoutPanel.AddView(lblname,20, 0 ,LayoutPanel.Width,LayoutPanel.Height)
    
End Sub

Sub layout_contentfiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
    lblname.Text = fruits.Get(Position)
End Sub

AndroidMadhu · Apr 17, 2020

Frankie Lagrange said:
Activity.LoadLayout("main")

Yes... I have done that... I want to add the name in another way.
Below is my code

B4X:

#Region  Project Attributes
    #ApplicationLabel: ULV1
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private UltimateListView1 As UltimateListView  <---From Desiner Control[Generate target]
    Private btn1 As Button <---From Desiner Control[Generate target]
    Private fruits As List <---From Desiner Control[Generate target]
    Private Label1 As Label <---From Desiner Control[Generate target]
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
    fruits.Initialize2(Array As String("Apple","Melon","Litchi", "Strawberry","Blueberry"))
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub UltimateListView1_LayoutCreator(LayoutName As String, LayoutPanel As Panel)

End Sub

Sub UltimateListView1_ContentFiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
    Label1.TextColor=Colors.Red
    Label1.Text= fruits.Get(Position)
End Sub

Am I missing anything? Please suggest....

Frankie Lagrange · Apr 17, 2020

Did you create a panel in main layout?

AndroidMadhu · Apr 17, 2020

Yes.. I have created panel in main layout (Designer layout). At designer view first I create the panel. Then I created ulv on top of this panel. I also add label on ulv and add button inside the panel

Frankie Lagrange · Apr 17, 2020

OK. So, what are you trying to achieve, I am not sure I understand. The data should be showing in the ULV.

AndroidMadhu · Apr 17, 2020

I wanted to see the name of the fruits at the list view. But they are not showing. Am I doing any mistake ? Like I have not written anything at

B4X:

UltimateListView1_LayoutCreator

Also I made the panel "Send to back" at Designer View. Not sure where I am wrong?

Erel · Apr 17, 2020

Why aren't you using xCLV?

AndroidMadhu · Apr 17, 2020

Erel said:
Why aren't you using xCLV?

I am exploring different controls.... The reason why I am trying ULV..... If anyone advice where I am wrong it will be helpful

Frankie Lagrange · Apr 17, 2020

Here's a project that works. Hopefully it'll help you. I mean, it's your project working.

And my opinion, for what it's worth: xCLV is easier to implement and runs on many platforms. ULV is dedicated to Android (I believe), but has more features. In particular it has a very smooth drag and drop function that xCLV lacks.

Mahares · Apr 17, 2020

AndroidMadhu said:
If anyone advice where I am wrong it will be helpful

Here is attached a complete fruit project in xCustomListView in its simplest form that does exactly what you are trying to do with Frankie's help using ULV.

B4X:

Sub Globals
    Private clv1 As CustomListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")  'has  clv1 only
    Dim MyList As List
    MyList.Initialize
    MyList = Array ("Apple", "Banana", "Cherry", "Coconut", "Grapes", "Lemon", "Mango", "Melon", "Orange", "Pear", "Pineapple", "Strawberry", "Litchi", "Watermelon")
    For Each s As String In MyList
        clv1.AddTextItem(s, s)
    Next
End Sub

Sub clv1_ItemClick (Index As Int, Value As Object)
    Activity.Title = $"My favorite fruit is: ${Value}"$
     MsgboxAsync( $"I clicked on: ${Value}"$,"Favorite Fruit")
End Sub

AndroidMadhu · Apr 19, 2020

Thanks @Frankie Lagrange ... I found where I was wrong
It is working like a charm........

Android Question UltimateListView

AndroidMadhu

Active Member

DonManfred

Expert

skaliwag

Member

AndroidMadhu

Active Member

Frankie Lagrange

Member

AndroidMadhu

Active Member

Frankie Lagrange

Member

AndroidMadhu

Active Member

Frankie Lagrange

Member

AndroidMadhu

Active Member

Erel

B4X founder

AndroidMadhu

Active Member

Frankie Lagrange

Member

Attachments

Mahares

Expert

Attachments

AndroidMadhu

Active Member

Similar Threads

Android Question UltimateListView

Active Member

Expert

Member

Active Member

Member

Active Member

Member

Active Member

Member

Active Member

B4X founder

Active Member

Member

Attachments

Expert

Attachments

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency