- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 列标题能否设置图片 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77809)
-- 发布时间：2015/11/25 19:04:00
-- 列标题能否设置图片
列标题能否设置图片
-- 发布时间：2015/11/25 20:23:00
--
mark 单元格图标
Dim g = Tables("表A").grid
Dim cs = g.GetCellRange(0, 2)
cs.Image = Getimage("d:\\test.Ico")
If cs.style Is Nothing Then
cs.style = g.Styles.add("第一列")
End If
cs.Style.ImageAlign = 1
-- 发布时间：2015/11/26 10:09:00
--
能否设置图片拉伸？
-- 发布时间：2015/11/26 10:59:00
--
Dim g = Tables("表A").grid
Dim cs = g.GetCellRange(0, 7)
cs.Image = Getimage("d:\\test.Ico")
If cs.style Is Nothing Then
cs.style = g.Styles.add("第一列")
End If
cs.Style.ImageAlign = 10
-- 发布时间：2015/11/26 11:16:00
--
能否不用图片，实现这样效果
此主题相关图片如下：qq截图20151126111735.jpg
-- 发布时间：2015/11/26 12:01:00
--
可以，但差不多也要绑定事件
Dim g = Tables("表A").grid
Dim cs = g.GetCellRange(0, 1)
If cs.style Is Nothing Then
cs.style = g.Styles.add("test")
End If
cs.Style.ImageAlign = 4
cs.style.DataType = Gettype(Boolean)
g(0, 1) = True