ASP.Net/Mobile Control/Calendar

Get Mobile calendar selected date (VB.net)

   <source lang="csharp">

<%@ 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 calSelectChange(ByVal Sender as Object, _

   ByVal E as EventArgs)
   Dim i as Integer
   lbl1.Text = "You selected:"
   For i = 0 to Cal1.SelectedDates.Count - 1
       lbl1.Text = lbl1.Text & " " _
           & Cal1.SelectedDates(i).ToShortDateString()
   Next    

End Sub </script> <mobile:form

   id="FirstPage" 
   runat="server">
   <mobile:calendar  
       id="Cal1"
       selectionmode="DayWeekMonth"
       onselectionchanged="calSelectChange"
       runat="server"
   />
   <mobile:label
       id="lbl1"
       runat="server"
   />

</mobile:form>

      </source>
   
  

Mobile calendar selection mode (VB.net)

   <source lang="csharp">

<%@ 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"> </script> <mobile:form

   id="FirstPage" 
   runat="server">
   <mobile:calendar  
       id="cal1"
       selectionmode="DayWeekMonth"
       runat="server"
   />

</mobile:form>

      </source>
   
  

Mobile date selection changed event (VB.net)

   <source lang="csharp">

<%@ 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>

      </source>
   
  

Simplest mobile calendar (VB.net)

   <source lang="csharp">

<%@ 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"> </script> <mobile:form

   id="FirstPage" 
   runat="server">
   <mobile:calendar  
       id="cal1"
       runat="server"
   />

</mobile:form>

      </source>