Sub Item_LayoutCreator(LayoutName As String, LayoutPanel As Panel)
LayoutPanel.LoadLayout("lay_strumenti")
End Sub
Sub Item_ContentFiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
Dim imageview1 As ImageView = LayoutPanel.GetView(0)
'First view in the panel
imageview1.Gravity = Gravity.FILL
Dim immagine As Bitmap
immagine.Initialize(File.DirAssets, "sc_3.jpg" )
imageview1.Bitmap = immagine
Dim Label1 As Label = LayoutPanel.GetView(1)
Label1.Text = risposte.Get("log_id_domanda" & Position)
Label1.Tag = risposte.Get("log_id_domanda" & Position)
Dim Button1 As Button = LayoutPanel.GetView(2)
Button1.Text = risposte.Get("log_risposta_a" & Position)
Button1.Tag = risposte.Get("log_risposta_a" & Position)
Dim Button2 As Button = LayoutPanel.GetView(3)
Button2.Text = risposte.Get("log_risposta_b" & Position)
Button2.Tag = risposte.Get("log_risposta_b" & Position)
Dim Button3 As Button = LayoutPanel.GetView(4)
Button3.Text = risposte.Get("log_risposta_c" & Position)
Button3.Tag = risposte.Get("log_risposta_c" & Position)
End Sub
Sub Button1_Click
Dim Button1 As Button = Sender
Dim dove_mitrovo As String = Button1.Tag
ToastMessageShow( dove_mitrovo , True)
Dim splitta() As String = Regex.Split("\|", Button1.Tag)
primopezzo = splitta(0)
secondopezzo = splitta(1)
punti = splitta(2)
Button1.TextColor = Colors.Black
'Do la rotondità e cornice
Dim c2, c3 As ColorDrawable
c2.Initialize2(Colors.ARGB(255, 39, 255, 0),10dip,3dip,Colors.Black)
Button1.Background = c2
End Sub