关于 ActiveX 8.0中VB6.0中如何改变单元格选中的边框样式？

收藏

关于 ActiveX 8.0中VB6.0中如何改变单元格选中的边框样式？如下图所示的，选中单元格的选中黑色框如何修改颜色或边框样式的宽度？

iceman · iceman

回复 1楼wlosg的帖子

你好，
可以在 Chaged 事件中设置 border 具体设置方法可以参考帮助文档：Customizing Cell Borders 章节

wlosg · wlosg

你好！能不能给个事例，看的不是很明白，并且也没有找到Chaged事件？谢谢了！

iceman · iceman

回复 3楼wlosg的帖子

你好，
请使用以下代码测试。
目前 Spread Com 无法设置 Border 宽度，只能为 1pixel：

Private Sub fpSpread1_Click(ByVal col As Long, ByVal row As Long)
fpSpread1.SetCellBorder col, row, col, row, CellBorderIndexRight, vbRed, CellBorderStyleSolid
fpSpread1.SetCellBorder col, row, col, row, CellBorderIndexLeft, vbRed, CellBorderStyleSolid
fpSpread1.SetCellBorder col, row, col, row, CellBorderIndexTop, vbRed, CellBorderStyleSolid
fpSpread1.SetCellBorder col, row, col, row, CellBorderIndexBottom, vbRed, CellBorderStyleSolid
End Sub

复制代码

wlosg · wlosg

回复 4楼iceman的帖子

你好！我说的是当单元格获得焦点时的选中边框，就是鼠标移到单元格后左键后单元格中那个黑色边框，随着单元格焦点移动的那个，而不是选中后设置选中的单元格边框！

iceman · iceman

回复 5楼wlosg的帖子

wlosg 你好，
可以在点击新单元格时，重置之前点击单元格的边框。我的实现代码如下：

Dim a As Integer
Dim b As Integer
Private Sub Form_Load()
a = 1
b = 1
End Sub
Private Sub fpSpread1_Click(ByVal Col As Long, ByVal Row As Long)
fpSpread1.Row = a
fpSpread1.Col = b
fpSpread1.SetCellBorder b, a, b, a, CellBorderIndexRight, vbRed, CellBorderStyleDefault
fpSpread1.SetCellBorder b, a, b, a, CellBorderIndexLeft, vbRed, CellBorderStyleDefault
fpSpread1.SetCellBorder b, a, b, a, CellBorderIndexTop, vbRed, CellBorderStyleDefault
fpSpread1.SetCellBorder b, a, b, a, CellBorderIndexBottom, vbRed, CellBorderStyleDefault
fpSpread1.Row = Row
fpSpread1.Col = Col
fpSpread1.SetCellBorder Col, Row, Col, Row, CellBorderIndexRight, vbGreen, CellBorderStyleSolid
fpSpread1.SetCellBorder Col, Row, Col, Row, CellBorderIndexLeft, vbRed, CellBorderStyleSolid
fpSpread1.SetCellBorder Col, Row, Col, Row, CellBorderIndexTop, vbRed, CellBorderStyleSolid
fpSpread1.SetCellBorder Col, Row, Col, Row, CellBorderIndexBottom, vbRed, CellBorderStyleSolid
a = fpSpread1.Row
b = fpSpread1.Col
End Sub

复制代码

		自动登录	找回密码
密码			立即注册

[已处理] 关于 ActiveX 8.0中VB6.0中如何改变单元格选中的边框样式？