我在全局代码里面加入：下面代码：
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
怎么用这个：Public Sub 刷新()呢？
加好友 
发短信
Post By：2017/1/1 10:27:00 [显示全部帖子]
