WebControl ItemTemplate - Event Kalender

  • VB.NET

    WebControl ItemTemplate - Event Kalender

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Web.UI
    2. Imports System.Web.UI.WebControls
    3. Imports System.Data
    4. Imports System.ComponentModel
    6. Namespace DataControls
    8. '*******************************************************
    9. ' Class DataCalendarItem
    10. ' - serves as the container for a single calendar entry,
    11. ' allowing for databinding syntax like the following
    12. ' to be used in the .aspx page:
    13. '
    14. ' <%# Container.DataItem("MyField") %>
    15. ' *******************************************************
    18. Public Class DataCalendarItem
    19. Inherits Control
    20. Implements INamingContainer
    22. Private _dataItem As DataRow
    24. Public Sub New(ByVal dr As DataRow)
    25. _dataItem = dr
    26. End Sub
    28. ' because the source data will be a DataTable
    29. ' object, it makes sense for our DataItem
    30. ' property to return a DataRow object
    31. ' (i.e. a single item in the data source
    32. ' corresponds to a single row of data)
    33. Public Property DataItem() As DataRow
    34. Get
    35. Return _dataItem
    36. End Get
    37. Set(ByVal value As DataRow)
    38. _dataItem = value
    39. End Set
    40. End Property
    41. End Class
    44. '*******************************************************
    45. ' Class DataCalendar
    46. ' - subclass of the ASP.NET Calendar control for
    47. ' displaying events from a DataTable with support
    48. ' for templates
    49. ' *******************************************************
    52. Public Class DataCalendar
    53. Inherits Calendar
    54. Implements INamingContainer
    56. Private _dataSource As Object
    57. Private _dataMember As String
    58. Private _dayField As String
    59. Private _itemTemplate As ITemplate
    60. Private _noEventsTemplate As ITemplate
    62. Private _dayWithEventsStyle As TableItemStyle
    63. Private _dtSource As DataTable
    65. ' Support either a DataSet or DataTable object
    66. ' for the DataSource property
    67. Public Property DataSource() As Object
    68. Get
    69. Return _dataSource
    70. End Get
    71. Set(ByVal value As Object)
    72. If TypeOf value Is DataTable OrElse TypeOf value Is DataSet Then
    73. _dataSource = value
    74. Else
    75. Throw New Exception("The DataSource property of the DataCalendar control" & " must be a DataTable or DataSet object")
    76. End If
    77. End Set
    78. End Property
    81. ' If a DataSet is supplied for DataSource,
    82. ' use this property to determine which
    83. ' DataTable within the DataSet should
    84. ' be used; if DataMember is not supplied,
    85. ' the first table in the DataSet will
    86. ' be used.
    87. Public Property DataMember() As String
    88. Get
    89. Return _dataMember
    90. End Get
    91. Set(ByVal value As String)
    92. _dataMember = value
    93. End Set
    94. End Property
    97. ' Specify the name of the field within
    98. ' the source DataTable that contains
    99. ' a DateTime value for displaying in the
    100. ' calendar.
    101. Public Property DayField() As String
    102. Get
    103. Return _dayField
    104. End Get
    105. Set(ByVal value As String)
    106. _dayField = value
    107. End Set
    108. End Property
    112. Public Property DayWithEventsStyle() As TableItemStyle
    113. Get
    114. Return _dayWithEventsStyle
    115. End Get
    116. Set(ByVal value As TableItemStyle)
    117. _dayWithEventsStyle = value
    118. End Set
    119. End Property
    121. <TemplateContainer(GetType(DataCalendarItem))> _
    122. Public Property ItemTemplate() As ITemplate
    123. Get
    124. Return _itemTemplate
    125. End Get
    126. Set(ByVal value As ITemplate)
    127. _itemTemplate = value
    128. End Set
    129. End Property
    132. <TemplateContainer(GetType(DataCalendarItem))> _
    133. Public Property NoEventsTemplate() As ITemplate
    134. Get
    135. Return _noEventsTemplate
    136. End Get
    137. Set(ByVal value As ITemplate)
    138. _noEventsTemplate = value
    139. End Set
    140. End Property
    143. ' Constructor
    144. Public Sub New()
    145. MyBase.New()
    146. ' since this control will be used for displaying
    147. ' events, set these properties as a default
    148. Me.SelectionMode = CalendarSelectionMode.None
    149. Me.ShowGridLines = True
    150. End Sub
    153. Private Sub SetupCalendarItem(ByVal cell As TableCell, ByVal r As DataRow, ByVal t As ITemplate)
    154. ' given a calendar cell and a datarow, set up the
    155. ' templated item and resolve data binding syntax
    156. ' in the template
    157. Dim dti As New DataCalendarItem(r)
    158. t.InstantiateIn(dti)
    159. dti.DataBind()
    160. cell.Controls.Add(dti)
    161. End Sub
    164. Protected Overrides Sub OnDayRender(ByVal cell As TableCell, ByVal day As CalendarDay)
    165. ' _dtSource was already set by the Render method
    166. If _dtSource IsNot Nothing Then
    168. ' We have the data source as a DataTable now;
    169. ' filter the records in the DataTable for the given day;
    170. ' force the date format to be MM/dd/yyyy
    171. ' to ensure compatibility with RowFilter
    172. ' date expression syntax (#date#).
    173. ' Also, take the possibility of time
    174. ' values into account by specifying
    175. ' a date range, to include the full day
    176. Dim dv As New DataView(_dtSource)
    177. dv.RowFilter = String.Format("{0} >= #{1}# and {0} < #{2}#", Me.DayField, day.[Date].ToString("MM/dd/yyyy"), day.[Date].AddDays(1).ToString("MM/dd/yyyy"))
    179. ' are there events on this day?
    180. If dv.Count > 0 Then
    181. ' there are events on this day; if indicated,
    182. ' apply the DayWithEventsStyle to the table cell
    183. If Me.DayWithEventsStyle IsNot Nothing Then
    184. cell.ApplyStyle(Me.DayWithEventsStyle)
    185. End If
    187. ' for each event on this day apply the
    188. ' ItemTemplate, with data bound to the item's row
    189. ' from the data source
    190. If Me.ItemTemplate IsNot Nothing Then
    191. For i As Integer = 0 To dv.Count - 1
    192. SetupCalendarItem(cell, dv(i).Row, Me.ItemTemplate)
    193. Next
    195. End If
    196. Else
    197. ' no events this day;
    198. If Me.NoEventsTemplate IsNot Nothing Then
    199. SetupCalendarItem(cell, Nothing, Me.NoEventsTemplate)
    201. End If
    203. End If
    204. End If
    206. ' call the base render method too
    207. MyBase.OnDayRender(cell, day)
    209. End Sub
    211. Protected Overrides Sub Render(ByVal html As HtmlTextWriter)
    212. _dtSource = Nothing
    214. If Me.DataSource IsNot Nothing AndAlso Me.DayField IsNot Nothing Then
    215. ' determine if the datasource is a DataSet or DataTable
    216. If TypeOf Me.DataSource Is DataTable Then
    217. _dtSource = DirectCast(Me.DataSource, DataTable)
    218. End If
    219. If TypeOf Me.DataSource Is DataSet Then
    220. Dim ds As DataSet = DirectCast(Me.DataSource, DataSet)
    221. If Me.DataMember Is Nothing OrElse Me.DataMember = "" Then
    222. ' if data member isn't supplied, default to the first table
    223. _dtSource = ds.Tables(0)
    224. Else
    225. ' if data member is supplied, use it
    226. _dtSource = ds.Tables(Me.DataMember)
    227. End If
    228. End If
    229. ' throw an exception if there is a problem with the data source
    230. If _dtSource Is Nothing Then
    231. Throw New Exception("Error finding the DataSource. Please check " & " the DataSource and DataMember properties.")
    232. End If
    233. End If
    235. ' call the base Calendar's Render method
    236. ' allowing OnDayRender() to be executed
    237. MyBase.Render(html)
    238. End Sub
    241. End Class


    Wie so kann ich bei dem Control kein <ItemTemplate> </ItemTemplate> setzten? Habe mir auf mehreren Seiten angeschaut wie das funktionieren soll und auch nach deren beispiel nachgebaut, jedoch funktioniert es leider nicht. Bitte helft mir :)