Mega Code Archive

 

Categories / ASP.Net / Mobile Control

 

Mobile date selection changed event (VB net)

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