In asp.vb:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Attributes.Add("onclick", "javascript:getdate()")
End Sub
Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
Label1.Text = Calendar1.SelectedDate
Label1.Attributes.Add("onclick", "javascript:getdate()")
End Sub
在label的onclick事件中寫:
sub showcal(sender as object,e as eventargs)
cal.visible=true
end sub
在日歷的OnSelectionChanged="seldate"中寫:
sub seldate(sender as object, e as eventargs)
txtfdate.text=cal.selecteddate
cal.visible=false
end sub