边框设置

和边框设置相关的属性：

属性 说明 备注
BorderTop 返回或设置上边框的类型。 XLS.LineStyleEnum型枚举，主要可选值有：

Dashed: 虚线
Dotted：点线
Double：双实线
Hair：头发丝一样的细线(一个像素)
Medium：中等实线
MediumDashDotDotted：中等的(短线+点+点)
MediumDashDotted: 中等的(短线+点)
MediumDashed: 中等虚线
None：无
Thick:粗线
Thin：细线
ThinDashDotDotted：细(短线+点+点)
ThinDashDotted：细(短线+点)
BorderBottom 返回或设置下边框的类型。
BorderLeft 返回或设置左边框类型。
BorderRight 返回或设置右边框类型。
BorderColorTop 返回或设置上边框颜色 　
BorderColorBottom 返回或设置下边框颜色
BorderColorLeft 返回或设置左边框颜色
BorderColorRight 返回或设置上边框颜色

示例

Dim Book As New XLS.Book() '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Red
Style.BorderColorBottom = Color.Red
Style.BorderColorLeft = Color.Red
Style.BorderColorRight = Color.Red
For r As Integer = 1 to 5
    For c As Integer =1 To 5
        Sheet(r,c).Style = Style
    Next
Next
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

生成的工作表：

本页地址：http://www.foxtable.com/webhelp/topics/1163.htm