- Dim attr As Single() = New Single() {0.1F, 0.2F, 0.3F, 0.6F, 0.7F, 0.9F}
- Dim bottomborder As FarPoint.Win.ComplexBorderSide = New FarPoint.Win.ComplexBorderSide(True, Color.Black, 3, Drawing2D.DashStyle.Solid, Nothing, attr)
- MyBase.ActiveSheet.Cells(0, MaxCols - 1, MaxRows - 1, MaxCols - 1).Border = New FarPoint.Win.ComplexBorder(Nothing, Nothing, bottomborder, Nothing)
- MyBase.ActiveSheet.Cells(MaxRows - 1, 0, MaxRows - 1, MaxCols - 1).Border = New FarPoint.Win.ComplexBorder(Nothing, Nothing, Nothing, bottomborder)
- MyBase.ActiveSheet.Cells(MaxRows - 1, MaxCols - 1).Border = New FarPoint.Win.ComplexBorder(Nothing, Nothing, bottomborder, bottomborder)
复制代码
最后用这样的方法实现了单元格区域的Noborder属性。 |