报表有些数据对我们来说是特别有用,往往需要高亮显示,突出效果。
这里用了两种方式进行高亮处理。第一个种是打圈。第二种是打横线。你还可以通过其他的样式来处理高亮效果,
此示例希望能达到抛砖引玉的作用
函数二代码:
Public Sub LineLightControl(ByRef ctlControl As Control,ByVal lngColour As Long)
With ctlControl
.BorderStyle = 0
.Parent.Line (.Left, .Top + .Height / 2 - 20)-(.Left + .Width, .Top + .Height / 2 - 20), lngColour
.Parent.Line (.Left, .Top + .Height / 2 + 20)-(.Left + .Width, .Top + .Height / 2 + 20), lngColour
End With
End Sub