在User Control里写Calendar,给自定义控件加一个事件(SelectionChanged),相应控件里Canlendar的 SelectionChanged 事件
Public Delegate Sub SelectionChangedHandler(ByVal sender As Object, ByVal e As System.EventArgs)Partial Class UserControls_WebUserControl
Public Event SelectionChanged As SelectionChangedHandler
Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
RaiseEvent SelectionChanged(sender, e)
End Sub
End Class