German anywheresoftware.b4a.samples.customlistview

Hallo zusammen,

ich verwende eine CustomListView mit dynamischen Views. Es werden so viele Views addiert wie in einem Tabellenbereich vorhanden sind.

Auf dem Form ist ein Button (>>) der nicht in der Listview enthalten ist. Quasi ausserhalb liegt. Bei btnWeiter_Click werden die Inhalte der Listview über eine Schleife in der Tabelle gespeichert.

Dieser Button soll aber erst eingeblendet werden, wenn die letzte View sichtbar ist.

Ich finde nur *_ItemClick (Position As Int, Value As Object). Gibt es auch ein *_ItemScroll (Position As Int, Value As Object) oder ähnliches?

Kann mir jemand weiterhelfen.

Gruß RauchG

Notlösung

Hallo zusammen,

ich hab mir jetzt mit einer Notlösung beholfen.

Wenn alle Views erstellt sind, pappe ich unten noch eine View mit zwei Buttons an.

Activity_Create (am Ende)
' nur eine View wird noch erstellt und am Ende angepappt
' Weiter >>
Dim btnWeiter As Button
clv1.Add(CreateListButton(btnWeiter, clv1.AsView.Width, 50dip), 66dip, i)

Sub CreateListButton(Text As String, Width As Int, Height As Int) As Panel

Dim p As Panel

p.Initialize("")
p.Color = Colors.RGB(255,228,196)

' Weiter >>
Dim gradButton, gradBack As GradientDrawable
Dim btnWeiter As Button
Dim btnAbbrechen As Button
Dim cls(2) As Int

cls(0) = Colors.RGB(117, 108, 108)
cls(1) = Colors.RGB(255, 255, 255)
gradBack.Initialize("TOP_BOTTOM", cls)
gradBack.CornerRadius = 8

btnWeiter.Initialize("btnWeiter")
btnWeiter.Gravity = Gravity.CENTER
btnWeiter.Text = ">>"
gradButton.Initialize("TOP_BOTTOM", cls)
gradButton.CornerRadius = 8
btnWeiter.Background = gradButton
btnWeiter.TextSize = 20

btnAbbrechen.Initialize("btnAbbrechen")
btnAbbrechen.Gravity = Gravity.CENTER
btnAbbrechen.Text = "Abbr."
gradButton.Initialize("TOP_BOTTOM", cls)
gradButton.CornerRadius = 8
btnAbbrechen.Background = gradButton
btnAbbrechen.TextSize = 14


' Items erstellen
p.AddView(btnWeiter, 295dip, 1dip, 64dip, 50dip) 'view #0
p.AddView(btnAbbrechen, 138dip, 1dip, 64dip, 50dip) 'view #1

Return p

End Sub


Gruß
RauchG