HelloForm.aspx
<%@ Page Language="VB" %>
<script runat="server">
Sub ButtonCancel_Click(sender As Object, e As EventArgs)
Panel1.Visible = False
End Sub
Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
IF CheckBox1.CHecked = True
Panel1.Visible = True
Else
Panel1.Visible = False
End IF
End Sub
Sub ButtonSubmit_Click(sender As Object, e As EventArgs)
Dim s as New StringBuilder("")
IF CheckBox1.Checked Then
s.append("You know ASP.NET")
' http://msdn.microsoft.com/library/en-us/cpref/html/frlrfsystemwebuiwebcontrolslistcontrolclassselecteditemtopic.asp
s.append("<br>" & "Your level of expertise is: " & RadioButtonList1.SelectedItem.Text)
Else
s.append("You need to learn ASp.NET")
End IF
LabelMsg.Text = s.ToString()
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:CheckBox id="CheckBox1" runat="server" OnCheckedChanged="CheckBox1_CheckedChanged" Text="I know ASP.NET" AutoPostBack="True"></asp:CheckBox>
</p>
<p>
<asp:Panel id="Panel1" runat="server" BorderStyle="Outset" Visible="False" Width="317px" Height="169px">
<p>
Your level of expertise:
</p>
<p>
<asp:RadioButtonList id="RadioButtonList1" runat="server">
<asp:ListItem Value="Basic">Basic</asp:ListItem>
<asp:ListItem Value="Intermediate">Intermediate</asp:ListItem>
<asp:ListItem Value="Advanced">Advanced</asp:ListItem>
</asp:RadioButtonList>
</p>
<p>
<asp:Button id="ButtonCancel" onclick="ButtonCancel_Click" runat="server" Text="Cancel"></asp:Button>
</p>
</asp:Panel>
</p>
<p>
<asp:Button id="ButtonSubmit" onclick="ButtonSubmit_Click" runat="server" Text="Submit"></asp:Button>
</p>
<p>
<asp:Label id="LabelMsg" runat="server"></asp:Label>
</p>
</form>
</body>
</html>
|