📄 exercise1.aspx
字号:
<%@ Page Language="VB" %>
<script runat="server">
sub Submit(obj as object, e as eventargs)
dim objService as new TYASPNET.Clients.ConvertUnits
dim dblResult as double
dblResult = objService.Convert(tbValue.Text, _
lbUnitsFrom.SelectedItem.Text, _
lbUnitsTo.SelectedItem.Text)
lblMessage.Text = tbValue.Text & " " & _
lbUnitsFrom.SelectedItem.Text & " = " & _
dblResult & " " & lbUnitsTo.SelectedItem.Text
end sub
</script>
<html><body>
<form runat="server">
Convert:
<asp:TextBox id="tbValue" runat="server" />
<asp:ListBox id="lbUnitsFrom" runat="server"
Size="1">
<asp:ListItem>mm</asp:ListItem>
<asp:ListItem>cm</asp:ListItem>
<asp:ListItem>m</asp:ListItem>
<asp:ListItem>km</asp:ListItem>
<asp:ListItem>in</asp:ListItem>
<asp:ListItem>ft</asp:ListItem>
<asp:ListItem>yd</asp:ListItem>
<asp:ListItem>mi</asp:ListItem>
</asp:ListBox>
to:
<asp:ListBox id="lbUnitsTo" runat="server"
Size="1">
<asp:ListItem>mm</asp:ListItem>
<asp:ListItem>cm</asp:ListItem>
<asp:ListItem>m</asp:ListItem>
<asp:ListItem>km</asp:ListItem>
<asp:ListItem>in</asp:ListItem>
<asp:ListItem>ft</asp:ListItem>
<asp:ListItem>yd</asp:ListItem>
<asp:ListItem>mi</asp:ListItem>
</asp:ListBox><p>
<asp:Button id="btSumit" runat="server"
Text="Submit"
OnClick="Submit" /><p>
<asp:Label id="lblMessage" runat="server" />
</form>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -