|
<%@ Page
Inherits="System.Web.UI.MobileControls.MobilePage"
Language="VB"
%>
<%@ Register
TagPrefix="mobile"
Namespace="System.Web.UI.MobileControls"
Assembly="System.Web.Mobile"
%>
<script runat="server" language="VB">
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Cal1.SelectedDate = DateAdd( _
Microsoft.VisualBasic.DateInterval.Year, _
1, Today())
Cal1.VisibleDate = DateAdd( _
Microsoft.VisualBasic.DateInterval.Year, _
1, Today())
End If
End Sub
Sub calSelectChange(ByVal Sender as Object, _
ByVal E as EventArgs)
lbl1.Text = "You selected " _
& Cal1.SelectedDate
End Sub
</script>
<mobile:form
id="FirstPage"
runat="server">
<mobile:calendar
id="Cal1"
runat="server"
onselectionchanged="calSelectChange"
/>
<mobile:label
id="lbl1"
runat="server"
/>
</mobile:form>
|
