主题：8.27 日历 好像有个小BUG

全局代码，加入一个方法

Public Sub 刷新()
If _bl = False Then Return        '检测初始化是否已完成
Dim c As Integer = Me.Width / 7        '计算列宽度
_事务标签_宽度 = c        '将宽度传递给变量
事务标签背景刷新()        '刷新事务标签背景图
For i As Integer = 1 To 6        '设置列宽
    Me.Cols(i).Width = c
Next
Me.Cols(Me.Cols.Count - 1).Width = Me.Width - (Me.Cols(Me.Cols.Count - 2).Left + Me.Cols(Me.Cols.Count - 2).Width)
Me.Rows(1).Height = _日历标题_行高        '设置行高
Dim 日历行数 As Integer = (_表格行数 - 2) / 2
Dim h As Integer = (Me.Height - _日历标题_行高 - 日历行数 * _日历日历_行高) / 日历行数
For i As Integer = 2 To _表格行数 - 2
    If i Mod 2 = 0 Then
        Me.Rows(i).Height = _日历日历_行高
    Else
        Me.Rows(i).Height = h
    End If
Next
Me.Rows(Me.Rows.Count - 1).Height =  Me.Height - (Me.Rows(Me.Rows.Count - 2).Top + Me.Rows(Me.Rows.Count - 2).Height)        '自适应最后一行
事务标签布局()        '刷新事务
End Sub

然后调用

_my日历.刷新

Dim i_月首星期 As Integer = _月首.DayOfWeek

改成

Dim i_月首星期 As Integer = iif(_月首.DayOfWeek=0, 7, _月首.DayOfWeek)