<%@ Page Language="VB" AutoEventWireup="false" CodeFile="CheckAndRadio.aspx.vb" Inherits="CheckAndRadio" %>
Untitled Page
File: CheckAndRadio.aspx.vb
Partial Class CheckAndRadio
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
results.Text = String.Empty
For Each li As ListItem In CheckBoxList1.Items
If li.Selected Then
results.Text &= li.Text & "
"
End If
Next
results.Text &= "
"
If RadioButtonList1.SelectedItem IsNot Nothing Then
results.Text &= RadioButtonList1.SelectedItem.Text
End If
End Sub
End Class