您希望在日历所显示的每个日期五的下方显示“员工会议”的消息。您还希望找出该日历显示的当前月份的所有工作日,并用黄色来突出显示这些工作日。您正在为WorkDays.Dayrender事件处理程序编写代码,以执行上述任务。您编写以上代码。(所包含的行号仅供参考。) & o! D% H4 t+ b% @ i8 W1 l1 v
1 Sub WorkDay_Dayrender(sender As Object, e As DayrenderEventArgs)
( S' N- E$ m6 V0 g3 \2 # N8 z# U$ V1 {* r
3 End Sub # G& t( b- q2 _; b$ R
您应该在事件处理程序的第2行添加哪段代码?(D)
3 `/ F3 r2 `2 k. R: A, R3 mA. If e.Day.Date.DayOfWeek=DayOfWeek.Friday Then
0 t) g: A4 X; ], K- He.Cell.Controls.Add(New LiteralControl(“Staff Meeting”)) 6 Q# @% M4 G6 C( h: f8 X; b7 f" ~
End if ' z4 G8 z4 p9 p" K! U# q/ @ Z
If Not e.Day.IsWeekend then
" k j; y( o) ?1 t! y e.Cell.BackColor= System.Drawing.color.Yellow : E: o; Q' s- W9 _
End if
! Z0 X* O: _$ l3 ]3 Z7 lB. If e.Day.Date.Day=6 And e.Day.IsOtherMonth Then
$ z8 [0 }- r8 r" v+ y9 ~e.Cell.Controls.Add(New LiteralControl(“Saff Meeging”))
* v, a+ D6 O/ ^/ Ce.Cell.BackColor=System.Drawing.Color.Yellow
, ]6 Q9 v% }4 p8 \. h! c* }End If 4 e: C! @5 M4 T) C7 \) X" m
C. If e.Day.Date.Day=6 Then 6 e9 L$ m. g0 y* {" z; I5 T' j9 M
e.Cell.Controls.Add(New LiteralControl(“Staff Meeting”))
( [4 n* n# }2 V; Q% |2 V& R) I \End if - K% F9 ?1 i8 H' _0 |' K
If Not e.Day.IsWeekend And Not e.Day.IsOtherMonth Then 7 }( T0 h+ p# g' D" e" K
e.Day.BackColor=System.Drawing.Color.Yellow
8 a0 r0 }, ^9 {# \) S( v3 zEnd if
# V+ L; u' q/ B, K {' w1 E/ d+ R) \D. If e.Day.Date.DayfWeek=DayOfWeek.Friday Then 9 M% W. F" i) K$ ^( R
e.Cell C.ontrols.Add(New LiteralControl(“Staff Meeting”))
) P: K1 g' |$ K; p( j r2 mEnd If
' J/ Q" V3 B- u# m. A, u) ~1 E If Not e.Day.IsWeekend And Not e.Day.IsOtherMonthe Then " C: i$ |% F0 L5 x0 l* c6 \
e.Cell.BackColor=System.Drawing.Color.Yellow 9 Y, P Y4 O5 b7 F4 H3 u- x
End If |