Sub Relais_In_ScrollView(Relais_Anzahl As Int)
Dim counter As Int = 1
Dim Chanel As Int = 1
Relais_Anzahl = Relais_Anzahl -1
ScrollView1.Initialize(385dip* 10) 'Innere Höhe definieren (nicht sichtbar) 32=193dip, 64=385dip
ScrollView1.RemoveView
Activity.AddView(ScrollView1, 2%x, 30%y, 96%x, 68%y) 'Sichtbare Linkaabstand, Obenabstand, Breite, Höhe definieren
For i = 0 To Relais_Anzahl
Dim p As Panel
p.Initialize("")
If counter > 128 Then
counter = 1
Chanel = Chanel + 1
End If
p.Tag = Chanel & "|" & counter
counter = counter * 2
p.LoadLayout("RelaisSwitchButton")
Label1.tag = i
' For v = 0 To p.NumberOfViews - 1
' p.GetView(v).Tag = p 'set the panel as the Tag value
' Next
ScrollView1.Panel.AddView(p, 0, i * 60dip, ScrollView1.Panel.Width, 58dip)
Next
InsertText
End Sub
Sub InsertText
For i = 0 To ScrollView1.Panel.NumberOfViews -1
Dim p As Panel = ScrollView1.Panel.GetView(i)
Dim txt As Label = p.GetView(1) '2nd view added in designer layout
txt.Text = "Wohnzimmer "
Next