📄 exercise1.aspx
字号:
<%@ Page Language="VB" %>
<script runat="server">
sub ChangeNames(obj as object, e as eventargs)
if rlSex.SelectedIndex = 0 then
'female
lbNames.Items(0).Text = "Sally"
lbNames.Items(1).Text = "Sara"
lbNames.Items(2).Text = "Hope"
lbNames.Items(3).Text = "Kaylee"
else
'male
lbNames.Items(0).Text = "John"
lbNames.Items(1).Text = "Chris"
lbNames.Items(2).Text = "Daniel"
lbNames.Items(3).Text = "Walter"
end if
end sub
sub DisplayMessage(obj as object, e as eventargs)
lblMessage.Text = obj.SelectedItem.Text & _
" is a wonderful name!"
end sub
</script>
<html><body>
<form runat="server">
<asp:Label id="lblMessage" runat="server"/><p>
Choose the sex of your baby:
<asp:RadioButtonList id="rlSex" runat="server"
OnSelectedIndexChanged="ChangeNames"
AutoPostBack="true" >
<asp:ListItem>Female</asp:ListItem>
<asp:ListItem>Male</asp:ListItem>
</asp:RadioButtonList><p>
Possible names:<br>
<asp:ListBox id="lbNames" runat="server"
OnSelectedIndexChanged="DisplayMessage"
AutoPostBack="true" >
<asp:ListItem></asp:ListItem>
<asp:ListItem></asp:ListItem>
<asp:ListItem></asp:ListItem>
<asp:ListItem></asp:ListItem>
</asp:ListBox><p>
</form>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -