?? 2-20.aspx
字號:
<Html>
<Form Runat="Server">請選擇您的愛好:<br>
<Input Type="CheckBox" Id="Check1" Runat="Server">上網<br>
<Input Type="CheckBox" Id="Check2" Runat="Server">游戲<br>
<Input Type="CheckBox" Id="Check3" Runat="Server">讀書<br>
<Input Type="CheckBox" Id="Check4" Runat="Server">運動<br>
<Input Type="Button" ID="Button1" Runat="Server"
OnServerClick="Button1_Click" Value="確定">
</Form>
<Span ID="Sp1" Runat="Server"/>
<Script Language="VB" Runat="Server">
Sub Button1_Click(Sender As Object, e As EventArgs)
Dim strMsg As String="您的愛好為: "
If Check1.Checked Then strMsg+="上網 "
If Check2.Checked Then strMsg+="游戲 "
If Check3.Checked Then strMsg+="讀書 "
If Check4.Checked Then strMsg+="運動 "
Sp1.InnerText=strMsg
End Sub
</Script>
</Html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -