German anywheresoftware.b4a.samples.customlistview

[RauchG]

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

 

[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