' nbr sera le nombre de lignes
dim nbr = 20 as int
For i=0 To Nbr-1
Dim pnltest As Panel
Dim btnTest As Button
Dim edtTest(Nbr) As EditText
pnltest.Initialize("pnlTest")
scvMain.Panel.AddView(pnltest,0,5dip+i*PanelHeight,100%x,PanelHeight)
pnltest.Tag=i
If (i Mod 2)=1 Then
pnltest.Color=Colors.Red
Else
pnltest.Color=Colors.Blue
End If
edtTest(i).Initialize("edtTest")
pnltest.AddView(edtTest(i),90dip, 5dip, 110dip, 40dip)
edtTest(i).Tag=i
edtTest(i).Text = CE QUE TU VEUX COMME INT OU DOUBLE
btnTest.Initialize("btnTest")
pnltest.AddView(btnTest,240dip, 5dip, 70dip, 40dip)
btnTest.Tag=i
btnTest.Text="Test "&i
Next
scvMain.Panel.Height=PanelNb*PanelHeight
End Sub
Sub btnTest_Click
Dim Send As Button = sender
' comme les editexts sont indexes je peux récuperer directement
' le contenu de sa valeur par le tag du bouton
dim MAVALEUR = edtTest(send.tag).text as int
edtTest(send.tag).text = MAVALEUR + 1
End Sub