01.<%@ Page Language="VB" %>
02.<script runat="server">
03.
04. Sub Calendar1_OnSelectionChanged(sender as Object, e As EventArgs)
05. Me.lblText1.Text = "Your selected : "& Me.Calendar1.SelectedDate.ToShortDateString
06. End Sub
07.
08.</script>
09.<html>
10.<head>
11.</head>
12.<body>
13. <form runat="server">
14. <asp:Calendar id="Calendar1" runat="server" OnSelectionChanged="Calendar1_OnSelectionChanged"></asp:Calendar>
15. <hr>
16. <asp:Label id="lblText1" runat="server"></asp:Label>
17. </form>
18.</body>
19.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
