Need Help on ListView

Rioven

Active Member
Licensed User
Longtime User
Hi,
I have attached my sample application which is Editable List using ScrollView for my Motorola Atrix with screen size of 540x960.
My problem is on Listview if I made a search(When 'FIND' Button is clicked): On emulator, listview can be scrolled but can't scrolled on my device.
I don't know how to make this work or implement this in other way?
 

Attachments

  • EditableListScrollView.zip
    7.8 KB · Views: 345

kanaida

Active Member
Licensed User
Longtime User
I have an LG Optimus M, I opened your project and it scrolled okay vertically.

It was way too wide for me screen so I only see the first field and a half, no sideways scrolling so I couldn't see anymore.
 
Upvote 0

Rioven

Active Member
Licensed User
Longtime User
Hi Kanaida,
Did you mean you can scroll the listview on 'Find' button or the main scrollview?
Try install on your device at 'Landscape' mode. To do this, check the Project > Orientations Supported > Both so that you can see the 'Find' Button on rightmost side of the screen and try the listview. Thanks.
 
Last edited:
Upvote 0

Rioven

Active Member
Licensed User
Longtime User
Here is the listview which is can not be scrolled on my device.
The intention is to populate the listview dynamically while typing.
The whole code is attached on the first post.
:sign0085:

B4X:
Sub Searchbox_TextChanged (Old As String, New As String)
SearchResult.Clear


If New<>"" Then

   For i=0 To Input1List.Size-1
   Dim snm As String
   Dim sb3 As StringBuilder
   sb3.Initialize
   sb3.Append(Input1List.get(i)&Input2List.get(i))
   snm=sb3.ToString.ToUpperCase
   
         If snm.IndexOf(New.ToUpperCase)>-1 Then
         SearchResult.AddTwoLines2(Input1List.get(i),Input2List.get(i),i)
         
         Dim Label1 As Label
         Label1 = SearchResult.TwoLinesLayout.Label
         Label1.TextSize = 20
         Label1.TextColor = Colors.Yellow
         Dim Label2 As Label
         Label2 = SearchResult.TwoLinesLayout.SecondLabel
         Label2.TextSize = 20
         Label2.TextColor = Colors.Cyan
               
         End If
   Next

End If

End Sub
 

Attachments

  • Search.jpg
    Search.jpg
    58.8 KB · Views: 360
Upvote 0
Top