?? ex15vb.aspx
字號:
<html>
<head>
<script language="VB" runat="server">
Sub CheckBox1_CheckedChanged(Sender As Object,e As System.EventArgs)
Calendar1.ShowNextPrevMonth=Not Calendar1.ShowNextPrevMonth
End Sub
'控制前、后月提示鏈接的顯示與否
Sub CheckBox2_CheckedChanged(Sender As Object,e As System.EventArgs)
Calendar1.ShowDayHeader=Not Calendar1.ShowDayHeader
End sub
'控制星期的顯示與否
Sub CheckBox3_CheckedChanged(Sender As Object,e As System.EventArgs)
Calendar1.ShowGridLines=Not Calendar1.ShowGridLines
End sub
'控制表格線的顯示與否
Sub CheckBox4_CheckedChanged(Sender As Object,e As System.EventArgs)
Calendar1.ShowTitle=Not Calendar1.ShowTitle
End sub
'控制表頭的顯示與否
Sub Date_Selected(Sender As Object,e As System.EventArgs)
Label1.Text="您選擇的日期是："+Calendar1.SelectedDate.ToShortDateString()
End sub
'當日歷中日期的選擇改變時觸發改事件，提示選擇的日期為哪一天
</script>
</head>
<body>
<h3><font face="Verdana">Calendar控件及CheckBox控件的基本用法</font></h3>
<form runat="server" method="post">
<table width=800><tr><td Width=400>
<asp:Calendar id="Calendar1" runat="server" OnSelectionChanged="Date_Selected">
</asp:Calendar></td><td><table width=100%><tr>
<asp:CheckBox id="CheckBox1" runat="server" Text="不顯示前、后月鏈接" AutoPostBack="True" OnCheckedChanged="CheckBox1_CheckedChanged" /></tr><tr>
<asp:CheckBox id="CheckBox2" runat="server" Text="不顯示星期" AutoPostBack="True" OnCheckedChanged="CheckBox2_CheckedChanged" ></asp:CheckBox></tr><tr>
<asp:CheckBox id="CheckBox3" runat="server" Text="顯示表格線" AutoPostBack="True" OnCheckedChanged="CheckBox3_CheckedChanged" ></asp:CheckBox></tr><tr>
<asp:CheckBox id="CheckBox4" runat="server" Text="是否顯示表頭" AutoPostBack="True" OnCheckedChanged="CheckBox4_CheckedChanged" ></asp:CheckBox></tr></table>
</td></tr></table>
<br>
<asp:Label id="Label1" runat="server" />
</form>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -