边框设置

和边框设置相关的属性:

属性 说明 备注
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