If e.Form.Controls("BL_日历_当前选择年月").text = "" Then Return

Dim Fnt As Font = New Font("微软雅黑", 9)

Dim Fnt1 As Font = New Font("微软雅黑", 5)

If e.Form.Width > 300 Then

    Fnt1 = New Font("微软雅黑", 7)

End If

Dim MyMonth = CDate(e.Form.Controls("BL_日历_当前选择年月").text).Month

Dim points(1) As Point

points(0) = New Point(e.x, e.y)

points(1) = New Point(e.x , (e.y + e.Height))

Dim BJ_标题 As New LinearGradientBrush(points(0), points(1), Color.LightSkyBlue, Color.LightSkyBlue) \'封装标题栏的背景的渐变色SkyBlue，MediumSpringGreen

If e.Row.Index = 0 Then \'绘制标题

    e.Graphics.FillRectangle(BJ_标题, New Rectangle(e.X, e.Y, e.Width, e.Height))

End If

If e.Row.Index > 0 Then \'非标题

    Dim x, y As Integer

    Dim MyText As String = e.Text

    Dim MyDate As Date

    If (DateTime.TryParse(MyText, MyDate)) Then \'如果文本可以转为日期

        Dim ZT_当月 As SolidBrush = New SolidBrush(Color.Black)

        Dim ZT_非当月 As SolidBrush = New SolidBrush(Color.OliveDrab)

        Dim BJ_非当月 As SolidBrush = New SolidBrush(Color.DarkGray)

        Dim BJ_当月 As New LinearGradientBrush(points(0), points(1), Color.LightBLue, Color.LightCyan) \'封装当月日期背景的渐变色

        Dim BJ_今天 As New LinearGradientBrush(points(0), points(1), Color.plum, Color.MediumOrchid) \'封装当月日期背景的渐变色

        

        Dim Int_月 As Integer = MyDate.Month

        Dim str As String = Functions.Execute("日历_农历计算", MyDate) \'取农历字符

        If str.Contains("初一") Then

            ZT_当月 = New SolidBrush(Color.Red)

        End If

        Dim sf As New StringFormat(StringFormatFlags.NoClip)

        sf.Alignment = StringAlignment.Center \'文本对中

        Dim 公历 As RectangleF = New RectangleF(e.X + 2, e.Y + 2, (e.Width - 4), e.Height / 2)

        Dim 农历 As RectangleF = New RectangleF((e.X + 2), (e.Y + e.Height / 2), (e.Width - 4), (e.Height - 4))

        Dim 单元格 As RectangleF = New RectangleF(e.X, e.Y, e.Width, e.Height)

        If Int_月 = MyMonth Then \'本月日历

            

                If MyDate = Date.Today Then

                    e.Graphics.FillRectangle(BJ_今天, 单元格)

                Else

                    e.Graphics.FillRectangle(BJ_当月, 单元格)

                End If

            If e.Form.Width < 200 Then

                e.Graphics.DrawString(MyDate.Day , Fnt, ZT_当月, 单元格, sf)

            Else

                e.Graphics.DrawString(MyDate.Day , Fnt, ZT_当月, 公历, sf)

                e.Graphics.DrawString(str, Fnt1, ZT_当月, 农历, sf)

            End If

        Else \'非本月日历

            e.Graphics.FillRectangle(BJ_非当月 , 单元格)

            If e.Form.Width < 200 Then

                e.Graphics.DrawString(MyDate.Day , Fnt, ZT_非当月, 单元格, sf)

            Else

                e.Graphics.DrawString(MyDate.Day , Fnt, ZT_非当月, 公历, sf)

                e.Graphics.DrawString(str, Fnt1, ZT_非当月, 农历, sf)

            End If

        End If

    End If

End If