Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Page.IsPostBack Then

DDList.Items.Insert(0, New ListItem(“Elemento aggiunto”, “”))

End If

End Sub

************
***Checkboxlist***

Protected Sub CBList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBList.SelectedIndexChanged

risposta.Text = “HAI CLICCATO I SEGUENTI CAMPI: ”
Dim i As Integer

For i = 0 To CBList.Items.Count – 1
If CBList.Items(i).Selected Then

risposta.Text &= CBList.Items(i).Text & “, ”

End If

Next
End Sub

*******

DDlsquadre.Items.Insert(0, New ListItem(“Inter”, “4″))

End Sub

Protected Sub ChkListSettimana_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkListSettimana.SelectedIndexChanged

risposta.Text = “Giorno della settimana selezionato:”

Dim i As Integer

For i = 0 To ChkListSettimana.Items.Count – 1

If ChkListSettimana.Items(i).Selected Then

risposta.Text &= ChkListSettimana.Items(i).Text & “”

End If

Next

End Sub

Protected Sub DDlsquadre_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDlsquadre.SelectedIndexChanged

risposta2.Text = “La squadra che hai selezionato è: ” & DDlsquadre.SelectedItem.Text

End Sub

———————————————————————————-

Esempio di ChekBoxList

Seleziona i giorni della settimana

Esempio di DropDownList

Seleziona la squadra che vincera la serie A 2010/11

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

DDlsquadre.Items.Insert(0, New ListItem(“Inter”, “4″))

End Sub

Protected Sub ChkListSettimana_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkListSettimana.SelectedIndexChanged

risposta.Text = “Giorno della settimana selezionato:”

Dim i As Integer

For i = 0 To ChkListSettimana.Items.Count – 1

If ChkListSettimana.Items(i).Selected Then

risposta.Text &= ChkListSettimana.Items(i).Text & “”

End If

Next

End Sub

Protected Sub DDlsquadre_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDlsquadre.SelectedIndexChanged

risposta2.Text = “La squadra che hai selezionato è: ” & DDlsquadre.SelectedItem.Text

End Sub

———————————————————————————————–

Esempio di ChekBoxList

Seleziona i giorni della settimana

Esempio di DropDownList

Seleziona la squadra che vincera la serie A 2010/11

Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim item As ListItem = New ListItem(“Seleziona”, “”)
ddl.Items.Insert(0, item)
End If
End Sub

Protected Sub cbl_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbl.SelectedIndexChanged
For i = 0 To cbl.Items.Count – 1
If cbl.Items(i).Selected Then
lbl.Text &= cbl.Items(i).Text & “”
End If
i += 1
Next
End Sub
End Class