- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现某一列的所有单元格边框颜色为红色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132775)
-- 发布时间：2019/3/29 14:14:00
-- 如何实现某一列的所有单元格边框颜色为红色
如何实现某一列的所有单元格边框颜色为红色，如下图效果
此主题相关图片如下：单元格.png
-- 发布时间：2019/3/29 14:32:00
--
方法一：drawcell事件
If e.Col.Name = "第一列" Then
e.StartDraw()
Dim msg As String=e.Text
Dim tl As Integer = e.Text.Length
Dim w As Integer = e.Width -4
Dim h As Integer = e.Height-4
Dim x As Integer = e.x + (e.Width - w)/2
Dim n As Pen
Dim fnt As New Font("楷体",9,FontStyle.Bold)
Dim br As Brush
n = New Pen(Color.Green,2)
br = New SolidBrush(color.Green)
Dim sf As new StringFormat
sf.Alignment = StringAlignment.Center
sf.LineAlignment = StringAlignment.Center
e.Graphics.DrawRectangle(n,x,e.y + 2,w,h)
e.Graphics.DrawString(msg,fnt,Brushes.black, new Rectangle(e.x, e.y, e.width, e.height), sf)
e.Text = ""
e.EndDraw()
End If
-- 发布时间：2019/3/29 14:34:00
--
方法二：
Tables("表A").Grid.cols("第二列").Style.Border.Style = 2
Tables("表A").Grid.cols("第二列").Style.Border.width = 2
Tables("表A").Grid.cols("第二列").Style.Border.Color = Color.red
-- 发布时间：2019/3/29 14:44:00
--
收到，功能实现，非常感谢。
-- 发布时间：2019/3/29 14:58:00
--
尽管是一老狐，仍然对狐表官方的服务点赞与感动！
-- 发布时间：2019/3/29 18:24:00
--
单击某一行时设置了该行突出显示，如何实现让某一列不在突出显示范围内呢？
此主题相关图片如下：3232.png
-- 发布时间：2019/3/29 20:04:00
--
那不能设置【整行】，必须用drawcell事件【突出】
http://www.foxtable.com/webhelp/scr/0656.htm
-- 发布时间：2019/3/29 22:40:00
--
我知道DRAWCELL，可是如何控制那一列在鼠标选中行的时候不被突出显示呢？那一列的内容都是循环的两个值，要么是A要么是B
-- 发布时间：2019/3/29 22:54:00
--
if e.col.name <> "某列" then
-- 发布时间：2023/9/18 16:59:00
--
勾选的行设置边框颜色不能用这个吗