codebehind2.vb

来自「asp入门到精通的源代码」· VB 代码 · 共 29 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls

Public Class CodeBehind2 : Inherits Page
   public lblMessage as Label
   public Calendar1 as Calendar
   
   Public sub Page_Load(obj as object, e as eventargs)
      if not Page.IsPostBack then
         Calendar1.SelectedDate = DateTime.Now
         lblMessage.Text = Calendar1.SelectedDate. _
            ToString("dddd, MMMM dd yyyy")
      end if
   End Sub
   
   Public sub DateChanged(obj as object, e as eventargs)
      if Calendar1.SelectedDates.Count > 1 then
         lblMessage.Text = Calendar1.SelectedDates(0). _
            ToString("dddd, MMMM dd yyyy") & " through " & _
            Calendar1.SelectedDates(Calendar1.SelectedDates. _
            Count - 1).ToString("dddd, MMMM dd yyyy")
      else
         lblMessage.Text = Calendar1.SelectedDate. _
            ToString("dddd, MMMM dd yyyy")
      end if
   End Sub
End Class